TECH TIP: Using PrintOnFirstPage for One Page Reports

Question: “I have a Footer that I do not want to print on the first page of my report, unless the report is only one page.”

Solution:

Both the Headerband and FooterBand have boolean properties called PrintOnFirstPage and PrintOnLastPage that can be used to control whether the respective bands print.

Example:

1. Set default behavior prior to calling Report.Print

   ppFooterband1.PrintOnFirstPage := False;
   ppReport1.PassSetting := psTwoPass;
   ppReport1.Print;

    

2. Add the following code the Report.OnEndFirstPass event:

    procedure TForm1.ppReport1EndFirstPass(Sender: TObject);
   begin
   
     {override default behavior for a single page report}
     if ppReport1.AbsolutePageCount = 1 then
       ppFooterband1.PrintOnFirstPage := True;
   
   end;