Hi Nico! I use if (Report.PageNo mod 2) = 1 then begin Page0.Caption := '- 18 -'; Page1.Visible := False; Report.PrinterSetup.MarginRight := 5; Report.PrinterSetup.MarginLeft := 25; end else begin Page1.Caption := '- 19 -'; Page1.Visible := True; Report.PrinterSetup.MarginLeft := 5; Report.PrinterSetup.MarginRight := 25; end; and 1st page is OK and next to,,,
Comments
Try using the Report.OnStartPage to change the
Report.PrinterSetup.MarginLeft and MarginRight properties based on the
PageNo property.
--
Regards,
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com
I use
if (Report.PageNo mod 2) = 1 then begin
Page0.Caption := '- 18 -';
Page1.Visible := False;
Report.PrinterSetup.MarginRight := 5;
Report.PrinterSetup.MarginLeft := 25;
end
else begin
Page1.Caption := '- 19 -';
Page1.Visible := True;
Report.PrinterSetup.MarginLeft := 5;
Report.PrinterSetup.MarginRight := 25;
end;
and
1st page is OK
and next to,,,
Jurek