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