Cómo obtener el número total de páginas de un report antes de imprimirlo:
Código Delphi
[-]
Quickrep1.Prepare;
QuickRep1.ReportTitle:= ' No. de páginas ' + IntToStr(QuickRep1.QRPrinter.PageCount);
Quickrep1.QRPrinter.Free;
Quickrep1.QRPrinter:=Nil;
Quickrep1.Print;