uniGUI is a Web Application Framework for Delphi,unigui使delphi使用extjs快速的开发web程序,unigui符合delphi开发者的习惯,开发web就象开发桌面程序一样。但unigui中打印没有好的办法,因为是web,所以要么是直接打印html代码,要么是生成pdf,然后打印,这儿我们介绍的是unigui中使用Grid++Report锐浪报表打印方法,使用Grid++Report锐浪报表需要事先安装Grid++Report锐浪报表插件,如果你不喜欢喜欢插件,就只有使用生成pdf文件再打印了,可以不必看下面的内容!
- 先在ServerModule模块的Customfiles中加入grinstall/CreateControl.js grinstall/GRInstall.js 这两个Grid++Report锐浪报表的JS,如果浏览器没有安装Grid++Report锐浪报表插件会提示安装!
- 引用UntGridppReportCommon.pas单元,该单元就是处理Grid++Report锐浪报表所需要的数据格式的!
- 在主窗口中加入TUniHTMLFrame控件!用来显示最终的html数据!虽然安装插件不是太理想,但安装插件后就可以实现和桌面打印一样的功能,为什么不安装呢?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30procedure TMainForm.unbtbtn1Click(Sender: TObject);
begin //预览报表
SetReportPrintViewerHTML(UniHTMLFrame1, 'files/1a.grf', 'files/ff.txt');
end;
procedure TMainForm.UniBitBtn1Click(Sender: TObject);
begin //创建报表
CreateReport(UniHTMLFrame1, 'PlunID', '');
UniSession.JSCode('PlunID.LoadFromURL("files/1a.grf");' +
'PlunID.LoadDataFromURL("files/ff.txt");' + 'PlunID.PrintPreview(true);');
end;
procedure TMainForm.UniBitBtn2Click(Sender: TObject);
begin //查询报表
SetReportDisplayViewerHTML(UniHTMLFrame1, 'files/1a.grf', 'files/ff.txt');
end;
procedure TMainForm.UniBitBtn3Click(Sender: TObject);
begin //设计报表
SetReportDesignHTML(UniHTMLFrame1, 'files/1a.grf', 'files/ff.txt', self);
end;
procedure TMainForm.UniBitBtn4Click(Sender: TObject);
begin
//打印报表
UniSession.JSCode('ReportViewer.Print(true);');
Exit;
UniHTMLFrame1.HTML.Text := ' ';
end;
为什么使用Grid++Report锐浪报表呢?因为Grid++Report锐浪报表可以免费使用,付费就是去掉打印右下角的标志,免费使用有一个标志,不过不影响使用!最重要的是锐浪报表支持Web的打印,官网有详细教程,Grid++Report锐浪报表官网 http://www.rubylong.cn/
delphi源码下载地址:
链接: https://pan.baidu.com/s/1kVQFxHeNP_502ovWmC3myg 提取码: 2hzk 复制这段内容后打开百度网盘手机App,操作更方便哦