Quick Report und Seitennumerierung

[BerndS]

Hallo,
wenn ich mich recht erinnere, muss vor den Drucken/Anzeigen Prepare vom Report aufgerufen werden.
Damit wird er einmal erstellt, um die Anzahl der Seiten zu ermitteln.
Danach dann Preview oder Print.
Kann es jetzt leider nicht testen.
Gruß Bernd.

[mcinternet]

Zitat von BerndS:

Hallo,
wenn ich mich recht erinnere, muss vor den Drucken/Anzeigen Prepare vom Report aufgerufen werden.
Damit wird er einmal erstellt, um die Anzahl der Seiten zu ermitteln.
Danach dann Preview oder Print.
Kann es jetzt leider nicht testen.
Gruß Bernd.

Hallo Bernd,

die Seitenanzahl wird richtig ermittelt.

qrseite.Caption := 'Seite ' + IntToStr(QR.QRPrinter.PageNumber) + ' von ' + IntToStr(PageCount);

Nur die aktuelle Seitennummerierung wird nicht hochgezählt.
Auf jeder Seite steht: Seite 0 von 9

Gruss

Mcinternet

[BerndS]

Ok, aber PageNumber ist auch eine Variable im Quickreport, die bei NewPage hochgezählt wird. Also sollte da
qrseite.Caption := 'Seite ' + IntToStr(PageNumber) + ' von ' + IntToStr(PageCount); stehen.

[mcinternet]

Zitat von BerndS:

Ok, aber PageNumber ist auch eine Variable im Quickreport, die bei NewPage hochgezählt wird. Also sollte da
qrseite.Caption := 'Seite ' + IntToStr(PageNumber) + ' von ' + IntToStr(PageCount); stehen.

Der findet pagenumber so nicht

Gruss

Mcinternet

[rawi]

Hallo mcinternet,

habe es gerade mal bei mir versucht, allerdings nur mit einem einseitigen Report unter Delphi 5.

Wenn man die procedure onstartpage nutzt, funktioniert es zumindest bei dem einseitigen report.

Delphi-Quellcode:

procedure TrptSysinfo.QuickRepStartPage(Sender: TCustomQuickRep);
begin
  QRLabel33.Caption := inttostr(sender.PageNumber   ) + ' / ' +
                       inttostr(sender.QRPrinter.pagecount)
end;

gruß rawi

[mcinternet]

Zitat von rawi:

Hallo mcinternet,

habe es gerade mal bei mir versucht, allerdings nur mit einem einseitigen Report unter Delphi 5.

Wenn man die procedure onstartpage nutzt, funktioniert es zumindest bei dem einseitigen report.

Delphi-Quellcode:

procedure TrptSysinfo.QuickRepStartPage(Sender: TCustomQuickRep);
begin
  QRLabel33.Caption := inttostr(sender.PageNumber   ) + ' / ' +
                       inttostr(sender.QRPrinter.pagecount)
end;

gruß rawi

Klappt!!!

Vielen Dank!

Gruss

McInternet