FastReport合并多份报表为一份预览打印

效果

比较简单,直接贴代码

//打印第一份报表
procedure TForm1.Button2Click(Sender: TObject);
begin
  frxReport1.LoadFromFile('1.fr3');
  TfrxMemoView(frxReport1.FindObject('Memo1')).Text := FormatDateTime('yyyy-mm-dd hh:nn:ss', Now);
  frxReport1.PrepareReport;
  frxReport1.ShowPreparedReport;
end;
 
//打印第二份报表
procedure TForm1.Button3Click(Sender: TObject);
begin
  frxReport1.LoadFromFile('2.fr3');
  frxReport1.PrepareReport;
  frxReport1.ShowPreparedReport;
end;
 
//合并2份报表一同打印
procedure TForm1.Button1Click(Sender: TObject);
begin
  frxReport1.LoadFromFile('1.fr3');
  frxReport1.PrepareReport;
  frxReport1.LoadFromFile('2.fr3');
  frxReport1.PrepareReport(False);
  frxReport1.ShowPreparedReport;
end;