Einzelnen Beitrag anzeigen

SearchBot

Registriert seit: 27. Jun 2004
Ort: N-W vom Bodensee
313 Beiträge
 
Delphi 12 Athens
 
#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