이 예제는 열 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;