Moin,

ich benutze Fast Report 5.1 und versuche einen Batchreport zu erstellen.
Dies funktioniert auch, allerdings nur, wenn ich mit der TfrxReport-Komponente kein TfrxPreview verbinde, also das interne Preview-Formular benutze.
Nutze ich aber die TfrxPreview-Komponente, dann zeigt er mir nur den letzten Report an.

Etwas Quellcode:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm8.Button1Click(Sender: TObject);
begin

  // Hier wird nur der letzte Report angezeigt
  frxReport1.Preview := frxPreview1;
  CreateReport;
  frxReport1.ShowPreparedReport;

end;

procedure TForm8.Button2Click(Sender: TObject);
begin

  // das funktioniert
  frxReport1.Preview := nil;
  CreateReport;
  frxReport1.ShowPreparedReport;

end;

procedure TForm8.CreateReport;
begin
  frxReport1.LoadFromFile(ExtractFilePath(Application.ExeName) + '1.fr3');
  frxReport1.PrepareReport;

  frxReport1.LoadFromFile(ExtractFilePath(Application.ExeName) + '2.fr3');
  frxReport1.PrepareReport(false);

end;

Jemand ne Idee?

Danke!

Die Antwort:

frxReport1.Preview muss vor dem erzeugen der Reports auf nil gesetzt sein. Vor dem .ShowPreparedReport kann man dann frxReport1.Preview := frxPreview1 setzen.
Interessant ist, dass es auch dann nicht funktioniert, wenn man auf der Form im Designer vorher frxReport1.Preview mit frxPreview1 verbunden hat. Es reicht also nicht, vorher im Code das auf nil zu setzen. Das ist also zu beachten.