fastreport分栏打印问题急救,在线等...

dezxp 2004-03-28 07:56:25
用fastreport打印分栏报表,将其分6栏打印,纸张设为横放。一页记录打印未满时用空的memo填满,我的做法是在master foot band下再拉了一个child band,并且在master data band和child band上均放了一些空的memo,然后在master foot band的onbeforeprint中写了:
begin
while FreeSpace >20 do
ShowBand(Child1)
end
现在的问题是当第一页记录打满后,再打第二页时,第一页的右边线条出界,也就是说说在预览时表格的横线超出了表格的右边框线,怎么办??搞了一个下午都没搞定,望高手快出招救命啊!
...全文
195 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
荣爵 2004-04-28
  • 打赏
  • 举报
回复
Mark...
dezxp 2004-03-29
  • 打赏
  • 举报
回复
我用的是fastreport2.51,我的横线超出右边框线的原因是我在主项数据里面多放了几个空的memo,但是如果不在放主项数据里面放空的memo,就无法对记录为空的栏用空格进行填满,我要实现的是:
|姓名 |职位 | 工资| 姓名 |职位 | 工资| 姓名| 职位| 工资|
a1 001 1200 a6 001 1200 a11 003 1500
a2 002 1100 a7 002 1600 a12 002 1200
a3 001 1200 a8 001 1200 a13 001 1600
a4 002 1000 a9 001 1200 (在这里要为表格补上空格)
a5 001 1200 a10 002 1000 (在这里要为表格补上空格)

另外假如第一页满,在第二页要显示如下效果:
姓名 |职位 | 工资| 姓名 |职位 | 工资| 姓名| 职位| 工资|
a20 001 1200 a25 001 1200 (在这里要为表格补上空格)
a21 002 1100 a26 001 1200 (在这里要为表格补上空格)
a22 001 1200 (在这里要为表格补上空格) (在这里要为表格补上空格)
a23 002 1000 (在这里要为表格补上空格) (在这里要为表格补上空格)
a24 001 1200 (在这里要为表格补上空格) (在这里要为表格补上空格)
如何实现?期待高手...
hooo 2004-03-28
  • 打赏
  • 举报
回复
>>也就是说说在预览时表格的横线超出了表格的右边框线,怎么办??搞了一个下午都没搞定,望高手快出招救命啊!
你缩小下MEMO吧..把MEMO的宽度缩小一些.
hooo 2004-03-28
  • 打赏
  • 举报
回复
begin
while FreeSpace >20 do
ShowBand(Child1)
end

我一般是放在页脚写的

5,388

社区成员

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

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