Code: Select all
XLS[SHEET].PrintSettings.PrintTitles(-1, -1, 0, 0);
with XLS[SHEET].PrintSettings.VertPagebreaks.Add do
begin
col := 0;
Row1 := 280;
Row2 := 65535;
end;
XLS[SHEET].WorkspaceOptions := [woFitToPage];
XLS[SHEET].PrintSettings.FitWidth := 1;
XLS[SHEET].PrintSettings.FitHeight := 500;
Page Layout Tab-->Breaks-->Insert Page Break