unigui+fastreport 打印【4】

合集 - unigui(25)

1.unidbgrid的rowedit=true2022-09-062.unigui的demo-\Demos\Desktop\DBAppDemo\SimpleDemo.dproj【11】2021-05-313.unigui的session【1】2018-05-024.unigui菜单【3】2018-08-035.unigui的ini文件读写【6】2018-09-206.unigui导出TMS.Flexcel【5】2018-08-13

7.unigui+fastreport 打印【4】2018-08-11

8.unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】2023-12-169.unigui显示websocket服务端向客户端发送信息【15】2023-12-2510.学习unigui【17】-数据集和JSON互相转换-DataSetConverter4D 开源项目2024-02-0111.学习unigui【18】unidbgrid的GridsGroupingSorting2024-02-0212.学习unigui【19】unidbgrid的Group By This Field汉化2024-02-0213.学习unigui【20】unistringGrid2024-02-2714.学习unigui【21】unistringGrid的标题栏动态增加2024-02-2915.学习unigui【22】unistringGrid的标题栏双击事件2024-03-0116.学习unigui【23】uniDBGrid的使用摘要2024-03-0917.学习unigui【25】关于图标2024-05-3018.学习unigui【24】Echart的使用：多个坐标系2024-04-2019.学习unigui【26】关于Unigui控件的个性化CSS框架2024-05-3120.学习unigui【27】像pg的jsonb一样编辑json。2024-06-0321.unigui的菜单树补习【2】treeview2018-08-0122.unigui的程序编译后自动运行傻傻的手动【7】2021-04-2823.unigui的ServerModule的重要属性【8】2021-04-2924.unigui的错误delphi clientHeight:property clientheight does not exist【10】2021-05-0325.学习unigui【28】UniGUI接收POST/GET2024-10-16

收起

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！