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