unigui+fastreport报表打印

unigui+fastreport报表打印

FASTREPORT导出成PDF报表，UNIGUI的TUniURLFrame显示PDF报表并打印。

function TfrDM.GenReportPDF(const InvNum: string): string;
begin
OpenDS(InvNum);  // 查询报表数据
try
frxReport1.PrintOptions.ShowDialog := False;
frxReport1.ShowProgress := false;

frxReport1.EngineOptions.SilentMode := True;
frxReport1.EngineOptions.EnableThreadSafe := True;
frxReport1.EngineOptions.DestroyForms := False;
frxReport1.EngineOptions.UseGlobalDataSetList := False;

frxReport1.LoadFromFile(UniServerModule.FilesFolderPath+'rp.fr3'); // 加载报表模板

frxPDFExport1.Background := True;
frxPDFExport1.ShowProgress := False;
frxPDFExport1.ShowDialog := False;
frxPDFExport1.FileName := UniServerModule.NewCacheFileUrl(False, 'pdf', '', '', Result, True);
frxPDFExport1.DefaultPath := '';

frxReport1.PreviewOptions.AllowEdit := False;
frxReport1.PrepareReport;
frxReport1.Export(frxPDFExport1);
finally
CloseDS;
end;
end;

procedure TUniForm1.UniFormBeforeShow(Sender: TObject);
var
dm : TfrDM;
RepUrl : string;
begin
dm := TfrDM.Create(nil);
try
RepUrl := dm.GenReportPDF(InvNum);
finally
dm.Free;
end;

UniURLFrame1.URL := RepUrl;
end;