fastreport怎么连续打印多张

moshao6 2011-08-05 03:15:20
动态加载fr,数据集里只有一条记录如 A AA 10
那么我要浏览时怎么得到 A AA 1 ,A AA 2, A AA 3 .. A AA 10 这样10张已设置好的报表数据
我想的是怎么用fr 里的功能就能作到。
(要是 20,那么就得到20张,只有这个编号不同而已,从1到 n)
(用临时表或物理表的这样的要求已作到,就是不知道fr自己要怎么才能作到)
...全文
1331 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
babydog01 2011-08-09
  • 打赏
  • 举报
回复
这是我使用过的代码,给你个参考。你想要直接打印就关掉打印提示框直接打印好了。

要显示在同一页面就麻烦点了:
一是手工添加新页面并放好要显示的内容,有一定的局限性,添加了多少就是多少。
二是代码实现:在load之后,用代码动态添加新页面,并摆上相应的控件。灵活但麻烦。


FR是报表软件,不是数据处理软件,建议在前期数据处理过程中就做好准备工作,再进行打印。
yh16008262 2011-08-09
  • 打赏
  • 举报
回复
设计问题,而非技术问题
换换思路呢
babydog01 2011-08-08
  • 打赏
  • 举报
回复
循环打印同一报表,并动态改变报表内容。

for i:=1 to 10 do begin
self.frxReport1.LoadFromFile('reports\统计明细表.fr3');
TfrxMemoView(frxReport1.FindObject('Memo3')).Memo.Text:=inttostr(i);
self.frxReport1.ShowReport;
end;

moshao6 2011-08-08
  • 打赏
  • 举报
回复
我要的是10张报表,而不是要一张上的10条记录
moshao6 2011-08-08
  • 打赏
  • 举报
回复
楼上的不行啊
moshao6 2011-08-08
  • 打赏
  • 举报
回复
难道我的表达能力就在那么差吗?楼上的你这个可不行,要是我要打印的是1000份,那不是我点击100次打印。

虽然可以不要浏览,可以直接打印。谢谢楼上!

我要的多张相同的报表要显示在一个页面上,而不是一个ShowReport多次,就像一条记录的怎么模拟出10记录那样的打印效果。
我说得还不够明白吗?

「已注销」 2011-08-05
  • 打赏
  • 举报
回复
自己在fastreport里面写脚本了,思路如下

增加一条childband,visible = false,上面放一个要答应的字段,与masterband一样,

在masterbandafterprint事件中
for i := 2 to 数值字段的值 do
begin
memo1.text := intToS(i);
{其他字段的值同样写入 memo2.text:= AA字段的值...}
showband(chandband)
end;

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧