Gesamt-Seitenanzahl des Berichts anzeigen

[Bernhard Berger]

Gibt es im Quick-Report die Möglichkeit die Gesamt-Seiten-Anzahl des Berichts anzeigen zu lassen?

mfg<br>
Bernhard

[Thomas Melchert]

<p>Hallo Bernhard,<br>
<br>
folgendes Beispiel zeigt wie es geht:<br>
<br>
<pre>
with TBericht.Create(Self) do
try
...
...
// ab hier Seitenzahl ermitteln
with QuickRep1 do
begin
Screen.Cursor:=crHourGlass;
Prepare;
// Seitenanzahl im Berichtsfenster setzten
SetAnzahlSeiten(QRPrinter.PageCount);
// Printerobject freigeben, da sonst Anzeige des Berichtes nicht funktioniert
QRPrinter.Free;
QRPrinter:=Nil;
Screen.Cursor:=crDefault;
// Bericht anzeigen
Preview;
end; // With QuickRep1
finally
Release;
end; // Try
</pre>
<br>
Gruß Thomas</p&gt

[Bernhard Berger]

Danke für die Hilfe