Hallo,
um die Gesamtseitenanzahl zu drucken muss man über einige Umwege gehen, weil Qickreport hierzu leider keine Standardfunktion besitzt.
Für das Beispiel brauchst du ein Label am Seitenkopf:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.Prepare; // Report wird initialisiert
PageCount := QuickRep1.QRPrinter.PageCount;// Pagecount ist eine private Variable im Formular.
QuickRep1.PreviewModal;
end;
procedure TForm1.QRLabel1Print(sender: TObject; var Value: String);
begin
// Dieses Ereignis wird jedesmal vor dem Drucken des Labels ausgeführt.
Value := 'Seite ' + IntToStr(QuickRep1.PageNumber) + ' von ' + IntToStr(PageCount);
end;
Ich hoffe das ist übersichtlich genug.