FastReport no Delphi - Visualizar mais de um relatório ao mesmo tempo

FastReport no Delphi - Visualizar mais de um relatório ao mesmo tempo

  dezembro 30, 2020    Ana Paula Novello

---

Com o necessidade de juntar dois documento o FastReport tem essa opção é algo simples, então vamos no nosso cenário:

Teremos dois documento um o "
Contrato" e outro é um "Aditivo contratual", Vamos fazer dois chamados correto? Já que são documento diferentes um para o "Contrato" e outro para o "Aditivo contratual", mas  como sempre tem aquele cliente que quer imprimir os dois documentos ao mesmo tempo, então usaremos essa opção do FastReport para juntar os dois documentos em um único relatório.

Para isso, o FastReport possui ferramentas que permitem anexar vários em um único documento. O método frxReport.PrepareReport tem um parâmetro ClearLastReport: Boolean. Este parâmetro determina se as páginas do relatório criado anteriormente devem ser apagadas.

Vamos a nosso exemplo: 

O código dos botões para visualizar os documento unitários são normais:

procedure TFSistema.BtnAditivoClick(Sender: TObject);
begin
  frxReport.LoadFromFile('Aditivo.fr3');
  frxReport.PrepareReport;
  frxReport.ShowReport;
end;

procedure TFSistema.BtnContratoClick(Sender: TObject);
begin
  frxReport.LoadFromFile('Contrato.fr3');
  frxReport.PrepareReport;
  frxReport.ShowReport;
end;

O código do botão para visualizar os documentos unidos e um pouco diferente:

procedure TFSistema.BtnAmbosClick(Sender: TObject);
begin
  frxReport.LoadFromFile('Contrato.fr3');
  frxReport.PrepareReport;
  frxReport.LoadFromFile('Aditivo.fr3');
  frxReport.PrepareReport(False);
  frxReport.ShowPreparedReport;
end;

Analisando o código acima a diferença e ter ambos os documento sendo carregados pelo LoadFromFile e ser preparado pelo PrepareReport, já a diferença e o PrepareReport com a propriedade False a partir do segundo carregamento, com isso se tivesse mais de dois arquivos os próximos também estariam com a propriedade False, logo após outra diferença mudamos o ShowReport pelo ShowPreparedReport;

Vamos ver como ficou: 

Exemplo: Download do exemplo

Fonte: https://www.fast-report.com/en/blog/353/show/