标签:
转自:http://blog.csdn.net/trassion/article/details/12778711
1、如果要在页面看到预览、必须添加frxPreview 控件,并且在frxReport 控件 属性Preview上指定 该控件。
frxReport1.ShowReport; //显示预览
如果没有指定,系统将弹出默认的预览界面。(其中的功能是可以设置的)
2、如果有预览的情况下,点击打印按钮打印,如下:
frxReport1.Print; //打印预览
3、如果不想预览,直接选打印机打印的话,如下:
-------前面是数据准备工作----------
frxReport1.LoadFromFile(‘JingCi_modul.fr3‘) ;//你载入报表模板了吗?
frxReport1.PrepareReport();
frxReport1.Print;
4、传输变量
procedure TForm1.frxReport1GetValue(const VarName: String;
var Value: Variant);
begin
if CompareText(VarName, ‘_partstr‘) = 0 then Value := _mylist[StringDS.RecNo][0]; //给_partstr 赋值
if CompareText(VarName, ‘_partno‘) = 0 then Value := _mylist[StringDS.RecNo][1];
if CompareText(VarName, ‘_lotno‘) = 0 then Value := _mylist[StringDS.RecNo][2];
if CompareText(VarName, ‘_qty‘) = 0 then Value := _mylist[StringDS.RecNo][3];
end;
5、没有数据库的情况下(或数据量很少时),可采用打印数组数据时可以用TfrxUserDataSet 控件记录打印的条数范围
StringDS.RangeEnd := reCount;
StringDS.RangeEndCount := High(_mylist)+1;
传输数据时参考第4点。
6、如果要进行模版设计时,
(方法一)
frxReport1.LoadFromFile(‘JingCi_modul.fr3‘);
frxReport1.DesignReport;
(方法二)
在预览窗口使用‘编辑报表’功能也可以进行设计!
标签:
原文地址:http://www.cnblogs.com/xyl0xp/p/5667395.html