怎么实现 fastreport 的每页小计 和 最后的合计 ？(200分)

  • 主题发起人 主题发起人 向红林
  • 开始时间 开始时间
向

向红林

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么实现fastreport 的每页小计 和 最后的合计？
要求：
1 按照单位分页，每页规定20条记录，不足20条补齐空行到20。
2 每页设一小计固定在地第21行
3 最后一页要求在小计行后加一合计行。且最后一页小计行最好改在第20行，合计行改在21行。（既最后页只要19条记录）。
 
放上分组头/分组脚，小计就放在分组脚上，最后的合计就放在报表合计上就可以实现了。
 
1/单位分组头(条件=单位)
2 主项数据(高度-自己调到每页21行)
3 子(child1--对应主项数据但内容为空--做补齐空行用)
4 页注脚(加上小计 对应sum(主项数据)) onbeforeprint方法：
while freespace>30(页边距+页注脚的高度)do

Showband(child1)----每页补齐空行
5 单位分组注脚(合计 对应sum(主项数据)) onbeforeprint方法：
while freespace>30(页边距+页注脚+分组注脚的高度)do

Showband(child1)----每页补齐空行
 
Ｔｏ　ＭＺＲ：
　　　真是高手啊，佩服，我现在也在用ｆａｓｔｒｅｐｏｒｔ，看看我的贴子，帮我出出主意吧我现在在用fastreport做财务报表的打印格式，要求是这样的：
分页显示，每六条记录为一页，每页都有对金额的合计；
合计为当前页的每条记录金额的总合，但是在最后一页就是对所有金额的和，而不是当前页的和。
我用页脚做合计，可以满足统计当前行的要求，可是最后一页的总合计怎么求啊？？
　
 
>>> 3 子(child1--对应主项数据但内容为空--做补齐空行用)
是什么啊
 
如果是这样的,如:统计电话号管理系统里所有电话号打印一张报表
要求:
------------电话号统计表--------------------------
北京|1、
2、
。。小计
上海|1、
2、
。。小计，总计
要怎么去实现呢？？
 
其实用rm更简单
 
我要实现如下的效果
北京 1、****
2、*****
3、（空行）
4、（空行）
.
.
20、（空行）
21、 小计
换页为其他的单位
广东 1、****
2、*****
3、（空行）
4、（空行）
.
.
20、（空行）
21、 小计
如果是最后页则是
湖南|1、*****
2、*****
3、（空行）
4、（空行）
.
.
20、 小计
21、合计
 
最后一页没实现,楼主要不要.
最后一页的问题,我想有可能要改它的源码!
 
我说的最后一页没实现
是指行数21行没实现,我输出的结果是22行.
 
还有,另外一个办法能实现但不灵活.
 
先看看
 
我现在 就差最后的一页了不知道怎么实现。
前面的已经实现了
 
晕
要是一个单位的内容
一页分不下。页小计
和 总合计位置没办法调整位置。
 
你只要21行,是不是纸张就那么大呀?
 
是企业标准表格
我现在用excel在实现。
只是excel可以被他人更改数据，不严谨。
 
我现在用分组报表(fastreport)得不到总页数,如果得的到,你的问题就解决了.
 
写一个函数得到总页数和总和，然后判断如果页数为最后一页时，做你想要的打印。
emily_cc的问题其实差不多，但比起向红林的问题来还要简单一步，就是最后一页的小计
向上走了一行。
 
您必须登录或注册才可回复。

Similar threads

不
Delphi实现类似Android锁屏的密码锁控件 - 不得闲
回复
0
查看
987
不得闲
不
不
关于在Delphi中链接VC的obj文件（XE2以上版本） - 不得闲
回复
0
查看
946
不得闲
不
D
[原]我最近的四场关于Delphi开发APP的直播
回复
0
查看
928
DelphiTeacher的专栏
D
D
[原]我最近的四场关于Delphi开发APP的直播
回复
0
查看
883
DelphiTeacher的专栏
D
D
[原]我最近的四场关于Delphi开发APP的直播
回复
0
查看
856
DelphiTeacher的专栏
D
后退
顶部