Hallo Delphifreunde,
habe seit einiger Zeit den Fastreport 4.
Wollte mir ein eigenes Print-Preview machen. Geht auch soweit alles, bis auf die Seitenzahl und Gesamtseitenzahl-Anzeige.
Der Report hat 3 Seiten. Habe für den Test nur einen Speedbutton angegeben.
Vielleicht kann mir bitte jemand dabei helfen - ich schaffe diese Sache einfach nicht.
Hier der Code
Delphi-Quellcode:
procedure TForm4.FormCreate(Sender: TObject);
begin
frxReport1.LoadFromFile('4000.fr3');
frxReport1.PreviewOptions.ZoomMode := zmPageWidth; //darstellung auf papierbreite
frxReport1.Preview := frxPreview1;
if frxReport1.PrepareReport then frxReport1.ShowPreparedReport;
//lbl_page.Caption := inttostr(frxReport1.PagesCount); //zeigt immer 2 an obwohl 3 Seiten sind
lbl_page.Caption := inttostr(frxReport1.PreviewPages.CurPage); //zeigt nur 1 an
end;
procedure TForm4.Prn_btn_priorClick(Sender: TObject);
begin
frxPreview1.Next ;
lbl_page.Caption := inttostr(frxReport1.PreviewPages.CurPage); //zeigt immer 1 an
end;
Wäre sehr dankbar für eine Hilfe oder Hinweis
ciao
LingNeu