Einzelnen Beitrag anzeigen

SearchBot

Registriert seit: 27. Jun 2004
Ort: N-W vom Bodensee
272 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: Fastreport und Seitenauswahl

  Alt 13. Jul 2019, 16:34
Naja, ich hab jetzt eine Lösung gefunden:

Ich nehme doch mein Multipage-Report.
In den Report.EngineOptions setze ich DoublePass auf true.
Dann bereite ich in vor.
Danach habe ich die Anzahl der vorberiteten Seiten und lösche diese raus, die ich nicht brauche, bevor ich die Vorschau anzeige...
Delphi-Quellcode:
  
  frxReport.PrintOptions.ShowDialog:=false;
  frxEtiData.RangeEndCount:=Grid1.RowCount-2;
  frxReport.PrepareReport;

  i:=frxReport.PreviewPages.Count;
  repeat
   dec(i);
   if frxReport.PreviewPages.Page[i].Name='pAdressethen
     if not chk_doAdress.Checked then frxReport.PreviewPages.DeletePage(i) else
   else
   if frxReport.PreviewPages.Page[i].Name='pLabelthen
     if not chk_doLabel.Checked then frxReport.PreviewPages.DeletePage(i) else
   else
   if frxReport.PreviewPages.Page[i].Name='pSNthen
     if not chk_doSN.Checked then frxReport.PreviewPages.DeletePage(i);
  until i=0;
  frxReport.ShowPreparedReport;
Bestimmt geht das auch eleganter...
  Mit Zitat antworten Zitat