使用QuickRep时,如果报表多于一页,如何在报表的前一页加上"接后页",后一页加上"承前页"? (200分)

  • 主题发起人 主题发起人 dqf
  • 开始时间 开始时间
D

dqf

Unregistered / Unconfirmed
GUEST, unregistred user!
使用QuickRep时,如果报表多于一页,如何在报表的前一页加上"接后页",后一页加上"承前页"?
Delphi里没什么帮助,谁能发给我份QuickRep的帮助?
Email: hd012@sohu.com
 
你可以先统计一页上有多少笔记录。如果大于,在qrlable的caption赋值为接后页,后一页上加承前页。
 
sword_liu的方法不完整,最后一页的页首不用“接后页”,第一页不用写"承前页"
在QuickRep1BeforePrint事件里面判断记录数大于一的页尾打“接后页”,
记录数小于最大数的页首打"承前页"
 
在PageHead与PageFoot中直接写入
还需要设置:不打印第一页页头,不打印最后一页页脚
 
不会呀。其实可以用if语句判断呀。
 
当前记录数可以用TQrSysdate得到
 
先quickrep.prepare得到总页数page.count
当pagenumber=1 and page.count>1时,打印"接后页".
当pagenumber>1 and pagenumber<page.count,打印"承前页"和"接后页"
当pagenumber>1 and pagenumber=page.count,打印"承前页".
 
我试过各位的方法,可是最后预览出来的结果不正确。
即:所有页上显示的都是最后一页的内容。
不知道是否我的方法用错了,拜托各位能说明的详细些好吗?
 
>>所有页上显示的都是最后一页的内容。
可能代码有问题,能把你的代码贴出来吗?
 
呵呵,小弟解决了,果然是以前代码的毛病。
谢谢各位了,给分了
 
多人接受答案了。
 
后退
顶部