unigui+fastreport 打印【4】

一、創建一個uniForm，用於創建FastReport打印界面。在Form上增長uniFrame。和傳統的的報表打印設計同樣同樣的。

二、在beofeShow事情中：

procedure TUniFrm_Report.UniFormBeforeShow(Sender: TObject); var rptFileName,url: string; begin rptFileName := 'demo.fr3'; frxrprt1.Clear(); try frxrprt1.LoadFromFile(UniServerModule.FilesFolderPath+rptFileName); //存放在files目錄下面 frxrprt1.PrintOptions.ShowDialog := false; frxrprt1.ShowProgress := false; frxrprt1.EngineOptions.SilentMode := true; frxrprt1.EngineOptions.EnableThreadSafe := true; frxrprt1.EngineOptions.DestroyForms := false; frxrprt1.EngineOptions.UseGlobalDataSetList := false; frxpdfxprt1.Background:=true; frxpdfxprt1.ShowProgress:=False; frxpdfxprt1.ShowDialog:=false; frxpdfxprt1.FileName:=UniServerModule.NewCacheFileUrl(False,'pdf','','',url,true); frxpdfxprt1.DefaultPath := ''; frxrprt1.PreviewOptions.AllowEdit := false; frxrprt1.PrepareReport(); frxrprt1.Export(frxpdfxprt1); UniURLFrame1.URL := url; finally //CloseDB; end; end;

三、在前端調用的代碼

procedure TUniFrmeWebEmbedBase_authoManage.act_PrtExecute(Sender: TObject); var prt : TUniFrm_Report; begin

  prt := TUniFrm_Report.Create(UniApplication); prt.ShowModal(); end;

四、關於亂碼問題：

 

五、其餘：窗口有數據控件，不知道爲何會自動鏈接open，所以你要能保持open而不出錯。不然，啥也沒有。錯誤見相似圖：

 

OK，goodluck！