I can combine several reports in FastReport, but How do I combine the report with a PDF file in a file/folder in FastReport ?
my code :
procedure TFLap_SBPK.PrepareAndShow(Report: TfrxReport; Exp: TfrxPDFExport);
var
AUrl : string;
begin
Report.PrintOptions.ShowDialog := False;
Report.ShowProgress := false;
Report.EngineOptions.SilentMode := True;
Report.EngineOptions.EnableThreadSafe := True;
Report.EngineOptions.DestroyForms := False;
Report.EngineOptions.UseGlobalDataSetList := False;
Exp.Background := True;
Exp.ShowProgress := False;
Exp.ShowDialog := False;
Exp.FileName := UniServerModule.NewCacheFileUrl(False, 'pdf', '', '', AUrl, True);
Exp.DefaultPath := '';
Report.PreviewOptions.AllowEdit := False;
Report.PrepareReport;
if Billing = '1' then
begin
frxRekapBPJS.PrepareReport;
Report.PreviewPages.AddFrom(frxRekapBPJS);
end;
if Resume = '1' then
begin
frxRadiologi.PrepareReport;
Report.PreviewPages.AddFrom(frxRadiologi);
end;
if Konsul = '1' then
begin
frxKonsul.PrepareReport;
Report.PreviewPages.AddFrom(frxKonsul);
end;
if Jawab = '1' then
begin
frxJawab.PrepareReport;
Report.PreviewPages.AddFrom(frxJawab);
end;
if Terapi = '1' then
begin
frxTerapi.PrepareReport;
Report.PreviewPages.AddFrom(frxTerapi);
end;
if Fisik = '1' then
begin
frxFisik.PrepareReport;
Report.PreviewPages.AddFrom(frxFisik);
end;
if PermintaanTerapi = '1' then
begin
frxPermintaanTerapi.PrepareReport;
Report.PreviewPages.AddFrom(frxPermintaanTerapi);
end;
if Kematian = '1' then
begin
frxKematian.PrepareReport;
Report.PreviewPages.AddFrom(frxKematian);
end;
if RujukKeluarRS = '1' then
begin
frxRujuk.PrepareReport;
Report.PreviewPages.AddFrom(frxRujuk);
end;
if Lain = '1' then
begin
FUrl := UniServerModule.FilesFolderURL + 'eKlaim_PDF/';
frxReport1.LoadFromFile(FUrl+QBiayaNama_File.AsString);
frxReport1.PrepareReport;
Report.PreviewPages.AddFrom(frxReport1);
end;
Report.Export(Exp);
UniPDFFrame1.PdfURL := AUrl + '#page=1&zoom=100';
end;