Quick Report und Seitennumerierung

[mcinternet]

Zitat von DeddyH:

Ich zitiere einmal das Zitat aus dem verlinkten Thread

Zitat:

Delphi-Quellcode:

procedure TfrmPreview.QRPreviewPageAvailable(Sender: TObject;
PageNum: Integer);
begin
  if PageNum = 1 then
    Caption := QRPreview.QRPrinter.Title + ' - 1 page'
  else
    Caption := QRPreview.QRPrinter.Title + ' - ' + IntToStr(PageNum) + ' pages';

Ich hab leider keinen QR zur Verfügung, kann es daher nicht ausprobieren.

PageNum ist unbekannt!

Es ist PageNumber - und das ist immer 0

Gruss

McInternet