Pages in the footer


2008-07-03 05:14:26 PM
delphi82
I print the current pagenumber by
procedure TDeductionInvoiceReport.Print(Sender: TObject);
begin
fReport := Sender as TBaseReport;
// More code here....
fReport.PrintFooter(Format('- %d -', [fReport.Currentpage]),
pjCenter);
end;
It produce an output like:
- 1 -
But I want to also print the total number of pages like this
- 1(5) -
It says that this page is the first of total 5 pages.
How can I do this?