Gesamtseitenzahl in einem Quickreport ermitteln?

[Garby]

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.