高分求RBuilder的报表打印问题.急.

XieWWW 2003-03-29 02:14:56
用RBuilder做一单据报表.格式如下:

***单

单据编号:XXX001 仓库: XXXXX

商品编码 商品名称 数量 单价 金额
6901347800053 椰子汁 10 2.5 25.00
XXXX XXXX xx xxxx XXXXXX
...
...

合计: 数量:XXX 金额:XXXXXXXX
累计: 数量:XXX 金额:XXXXXXXX

说明:每一页要有合计和累计,统计当页的数量和金额.累计为:如果是第一页
则为合计相同,下一页为上一页的累计加上当前页的合计.
纸大小应该让客户可选,有可能为自定义大小,也有可能为A4,A3.

问题的关键为合计行和累计行的打印.

各位大侠帮帮忙.

还有一个问题:有时发生,报表只有几页,但发送到打印机时有几千页.
...全文
78 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
S.F. 2003-04-06
  • 打赏
  • 举报
回复
xiewww,我是你同事,xiewww你不给分啊,所有的问题都要结帖;这样回答的人才会多啊
wycg_cnh20 2003-03-31
  • 打赏
  • 举报
回复
可以给每一页设定记录数count,当记录数大于count时,换页。
设参数hj,lj:float;每次换页时,hj值清0,lj 则不
在PageFooter中放两个标签分别hj,lj显示出来就可以了。
winsock2000 2003-03-29
  • 打赏
  • 举报
回复
合计: 数量:XXX 金额:XXXXXXXX!!
当页合计:这个简单!放一个ppVariable1,设置它的ResetType属性为:vePageEnd!然后在它的onCalc的事件中写入:
if ppDbtext1.text<>'' then //ppDbText1.Text为你所要统计的字段!
value:=value+Formatfloat('0.00',strtofloat(ppDbText1.Text));

累计: 数量:XXX 金额:XXXXXXXX
直接放ppDBCalc1在Footer栏上就可以了~

5,388

社区成员

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

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