Quick Report Seitenanzahl anzeigen

[Schodn]

Hallo

Wie kann ich folgendes in der Fusszeile anzeigen?

Seite 1 von 15


der 1 ist kein problem aber wie kann ich die höchste anzahl der Seiten den 15er anzeigen?

mfg
Franz

[Sourcemaker]

Hallo,

wenn Du vorher Report.Prepare aufrufst wird der Report schon einmal aubereitet und die maximale
Seitenzahl kannst Du ermitteln. Anschließend den Report nochmal aufrufen und die maximale
Seitenzahl als Parameter/Variable deiner Reportform mitgeben.
Eine andere Möglichkeit besteht meines Erachtens nicht.

Grüße

Frank

[Schodn]

ok aber wie kann ich die maximale Seitenanzahl auslesen

[Schodn]

Ok habs geschafft hier noch der Code für die, die das gleiche Problem haben

Delphi-Quellcode:

var
    i : Integer;
begin
    QuickRep1.Prepare;

    i := QuickRep1.PageNumber;
    qrlbl_pages.Caption := IntToStr(i);

    QuickRep1.Preview;
end;