求一个 Fast Report 的一个特殊的打印的方法 在线等！

Question

报表要求如下：
要求 求一个本页合计 值为前几页的小计的和  
例如每页必须打印4行 （控制行数我会调整）－－－－－－－－－－－－－－－－－－－－－－－－－ 
送货单号　　　　　　金额　　　　　　 
---------------------------------- 
2000101          10               
2000102          10
2000103          18
2000104          11
---------------------------------- 
本页小计         49
本页合计         49
     第1页/共3页送货单号　　　　　　金额　　　　　　 
---------------------------------- 
2000101          13               
2000102          12
2000103          13
2000104           8
---------------------------------- 
本页小计         44
本页合计         93
     第2页/共3页
送货单号　　　　　　金额　　　　　　 
---------------------------------- 
2000101          11               
2000102          10---------------------------------- 
本页小计         21
本页合计         114
     第3页/共3页

Answer 1

怎么样 能 在 分组脚 或者 页脚处打印出  本页合计的值来啊 困惑啊
程序是D7+FASTREPORT 2.5

Answer 2

下面是Fastreport的脚本： var
       iPage,iTotal : integer;procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
  ipage:=0;          
end;procedure Memo2OnAfterPrint(Sender: TfrxComponent);
begin
  ipage:= ipage +strtoint(Memo2.value);  
end;procedure PageFooter1OnAfterPrint(Sender: TfrxComponent);
begin
    ipage:=0;                         
end;procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);
begin
    iTotal:= iTotal+ipage;  
end;begin
           
end.备注：
  Memo2 放在MasterData1绑定金额字段
  在PageFoot放两个Memo 内容分别是 [iPage] 和 [iTotal]

Answer 3

用脚本可以，也可以试一下AC Report，可以实直接实现这种功能(我的资源里可以下载)。

Answer 4

wellnj 你的脚本没地方写啊  我是用Fast report 来做这个打印方案。
我是这么做的  1.在栏目脚上增加2个MEMO 分别命名：ipage iTotal
2.在主项数据上增加一个memo2 这里取的是金额字段
在栏目脚 上F11 弹出属性框在 OnBeforePrint 中写语句
begin
 
 ipage := 0 ;
 iTotal := 0 ;ipage := ipage + memo2.memo ;
 iTotal := iTotal + ipage ;
ipage.memo := iTotal ;这么做总是提示   
Could not convert variant of type (String) into type (Double)

Answer 5

Fast report    可以写脚本 ！！！

Answer 6

wellnj  如果 通过在页头、栏目脚 上按F11 在 OnBeforePrint 中写语句该如何实现啊另外还请报表高人来帮忙啊 着急啊 明天交工 可是这个报名解决不了啊

Answer 7

写不了代码  我只能修改fast report打印方案设计

Answer 8

memo2.value

Answer 9

你这里itotal 没有初始化我这里的Fast Rport 的 页脚按F11键时弹出的对象查看器框中没有OnAfterPrint 这个属性 只有OnBeforePrint，
 memo2 上按F11键弹出的对象查看器框中没有OnAfterPrint的属性也没有OnBeforePrint属性，也没有value这个属性
 一般我取memo2的值 需要使用memo2.memo老大难道咱们fast report不一样吗？ 我的是2.5版本的 程序我改不了  只能改这个打印方案

Answer 10

我以前用过 Report Machine 这个控件支持写脚本 

Answer 11

可能是版本不一样吧memo2.memo  是tstring类型的可能要这样写 memo2.memo.text