var Sheet: TXLSWorksheet; begin Sheet := Workbook.Sheets[1]; Sheet.HPageBreaks.Add(Sheet.Range['A25', 'A25']); if Sheet.HPageBreaks.Count > 0 then Sheet.PageSetup.PrintGridlines := True; end;