Delphi Quick Reports - Total Pages

Question

I'm using QuickReports within my application and would like to have "Page x of x" within the footer. What's the best way to do this?

Answer 1

A solution is to count the number of pages during preview so when you send it to the printer you can place it in the footer.

Answer 2

First prepare the document, so the system itselfs know how many pages will produce. There's a system variable you can use (no QR at hand to tell you the exact name).

For example:

procedure TForm1.Click(Sender: TObject);
begin
  //this actually run the report in memory to 
  //calculate things like total page count
  Report1.Prepare;  
  Report1.Print;  //or PreviewModal;
end;