דוגמה זו מכניסה מעבר עמוד אנכי לפני עמודה G ולאחר מכן בודקת כמה מעברי עמוד אנכיים גליון העבודה מכיל
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;