Quick Report und Seitennumerierung

[mcinternet]

Moin,

hab mal wieder ein kleines Problem:

Wie baut man bei den alten Quick-Reports eine Seitennumerierung rein?

so Seite x von y ?


vielen Dank im Voraus

McInternet

[DeddyH]

Vielleicht hilft Dir dieser Thread weiter.

[mcinternet]

Zitat:

Zitat von DeddyH

Vielleicht hilft Dir dieser Thread weiter.

Ja, danke!

Es gibt ja die Komponente Pageheaderband, was nimmt man denn für die Fußzeile?

Hat sich erledigt!

Gruss

McInternet

[mcinternet]

Zitat:

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

[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.

[mcinternet]

Zitat:

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

[DeddyH]

0 bei OnPageAvailable? Das halte ich für einen dicken Hund.

[mcinternet]

Zitat:

Zitat von DeddyH

0 bei OnPageAvailable? Das halte ich für einen dicken Hund.

OnPageAvailable habe ich als Event gar nicht! Nur OnPageBeforePrint

Gruss

McInternet

[DeddyH]

Dann kann ich Dir leider nicht weiterhelfen, da ich wie gesagt kein QR zur Verfügung habe :(

[mcinternet]

Hallo,

ich pushe diesen Thread einmal, da ich immer noch keine Lösung für meine Seitennumerierung habe.

Die vorgeschlagenen Lösungswege funktionieren leider nicht.

Da es mir ein wenig brennt wäre es schön, wenn jemand eine Idee/Lösung hätte

Die Entwicklungsumgebung ist in diesem Fall D2006

Gruss

McInternet

[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:

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

Delphi-Quellcode:

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

stehen.

[mcinternet]

Zitat:

Zitat von BerndS

Ok, aber PageNumber ist auch eine Variable im Quickreport, die bei NewPage hochgezählt wird. Also sollte da

Delphi-Quellcode:

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:

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