答谢liuly老师,liuly进来拿分!1000分谁来拿(100分)

  • 主题发起人 主题发起人 sdwflzg
  • 开始时间 开始时间
S

sdwflzg

Unregistered / Unconfirmed
GUEST, unregistred user!
为答谢liuly老师,特送100分,liuly快来来拿分!
如谁能解决QuickReport中报表中竖线的自动延伸且换页正常,我送1000分。
 
說的不太明白﹐不過我想如果你在QR的Band的beforeprint里寫事件﹐想怎么
畫就怎么畫
 
大哥1000分,好好想想,不会那么简单。
我要问的是,当有自动断行产生时,表格竖线的自动延伸,自动延伸已有办法,
就是换页时就不画竖线了。解决了就送1000分,决不食言!
 
有分就要~~ :)
>>自动延伸已有办法
什么办法?是不是和我的办法一样?如不一样,可否告知?
>>就是换页时就不画竖线了。解决了就送1000分,决不食言!
比较专业的办法我是没有啦,但土办法一堆,要是只想应付交差的话,
这个问题很好解决,一句话就行了:
你的报表应该有ColumnHeaderBand(或者PageHeaderBand)吧,
(没有的话加上一个,高度设为0,加上若干QRShape直线,与DetailBand对应),
在其BeforePrint事件中:
QRShape1.Height := QRQRShape1.Height + 100;
... ...
QRShapen.Height := QRQRShapen.Height + 100;
其中100是个经验值,可以稍微设大一点。
简单地说,就是把表头的竖线画长一点,甚至可以在设计时就拉长一些,连
代码都省了。
 
好像不行,ColumnHeaderBand中的这条竖线,打印不到DetailBand中。
这1000分不能给。
 
刚刚又试验了一下:Win2000+QR306+(LQ1600&HP6L),完全可行,
不知道你那儿为何不行?
DetailBand中的竖线还是应该保留的,不能删除,否则打不出来,
不知道你是不是这个原因。
已发一个程序到wflzg@8848.net,请你试试。
Good Luck!
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部