Gesamtseitenzahl in einem Quickreport ermitteln?

[mjenke]

Hallo!

Habe gerade von einem ausgeschiedenen Kollegen ein Projekt bekommen, in dem ein QuickReport verwendet wird. Auf diesem QuickReport taucht in der oberen rechten Ecke jeweils die aktuelle Seitenzahl auf. Funktioniert alles auch wunderbar. Der Kunde will jetzt aber nicht nur die Seitenzahl haben sondern auch die Gesamtseitenzahl (Beispiel: "1 von 5").

Kann mir jemand auf die Sprünge helfen, wie ich bei einem QuickReport die Gesamtseitenzahl ermitteln kann, bevor das Preview auf dem Schirm erscheint? Bis dahin muss ich die Gesamtseitenzahl wissen, um sie mit ausgeben zu können...


Matthias

[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.

[mjenke]

Hi, Garby!

Habe gerade ausprobiert, was Du geschrieben hast, und es funktioniert ausgezeichnet! Vielen Dank!


Matthias