unigui+fastreport 打印
Posted usegear
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了unigui+fastreport 打印相关的知识,希望对你有一定的参考价值。
1、建立一个uniForm,用于建立FastReport打印界面。在Form上增加uniFrame。和传统的的报表打印设计一样一样的。
2、在beofeShow事情中:
procedure TUniFrm_Report.UniFormBeforeShow(Sender: TObject); var rptFileName,url: string; begin rptFileName := ‘demo.fr3‘; frxrprt1.Clear(); try frxrprt1.LoadFromFile(UniServerModule.FilesFolderPath+rptFileName); 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;
3、在前端调用的代码
procedure TUniFrmeWebEmbedBase_authoManage.act_PrtExecute(Sender: TObject); var prt : TUniFrm_Report; begin prt := TUniFrm_Report.Create(UniApplication); prt.ShowModal(); end;
4、关于乱码问题:
goodluck!
以上是关于unigui+fastreport 打印的主要内容,如果未能解决你的问题,请参考以下文章
fastReport 怎么打印QR 二维码 那位盆友可提供解决方法
delphi 2010 的打印报表fastreport怎么读取流中的内容并显示出来最好有代码例子
我在fastreport.net上建了多个page页,怎样每打印一个page页就重置页码。
delphi fastreport 打印预览的时候没反应,而且内存狂飙,我delphi完全不熟,请大家贴点代码来看看,谢谢