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！