Quick Report und Seitennumerierung

[mcinternet]

Zitat von DeddyH:

Vielleicht hilft Dir dieser Thread weiter.

Moin,

ne - hat leider nicht ganz geholfen.

Ich habe einen Report von 9 Seiten. Auf jeder steht unten:

Seite 0 von 9

Delphi-Quellcode:

var
  fplan: Tplan;
  PageCount : Integer;{Global Variable}

implementation


procedure Tfplan.QRBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
   qrseite.Caption := 'Seite ' + IntToStr(QR.QRPrinter.PageNumber) + ' von ' + IntToStr(PageCount);
end;

und die Procedure selbst:

Delphi-Quellcode:

  QR.Prepare;
  PageCount:=QR.QRPrinter.PageCount;
  QR.Preview;

Gruss

McInternet