unigui+fastreport 打印【4】

FastReport打印界面搭建
本文介绍如何使用uniForm和FastReport组件创建打印界面,并详细解释了在beforeShow事件中加载和预览报告的过程。此外还涉及了前端调用代码及解决乱码问题的方法。

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);   //存放在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;

3、在前端调用的代码

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

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


end;

4、关于乱码问题:

 

5、其他:窗口有数据控件,不知道为什么会自动连接open,因此你要能保持open而不出错。否则,啥也没有。错误见类似图:

 

OK,goodluck!

转载于:https://www.cnblogs.com/usegear/p/9460408.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值