划表格线的问题(50分)

M

mnmn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-17

• #1

我将band的frame的上下左右都设为true,结果preview的时候,有的
表格横线看不到,但是打印的时候有,这是为什么,这样的preview太难看了;
而且中间的表格线特别粗,有没有办法解决?
另外,我在onprint 中用
quickrep1.Prepare;
qrlable1.caption:=inttostr(quickrep1.QRPrinter.PageCount);
求总页数,但是结果为0???

 

L

lianke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-20

• #2

建议你用QRShape控件来画表格线，其shape属性可设为qrsHorLine(画横线)，
qrsVertLine(画竖线)，适当的调整它的位置，就不会出现有的表格线特别粗
的问题了。
求总页数，QRPreview控件里有个OnPageAvailable事件
procedure TForm1.QRPreview1PageAvailable(Sender: TObject;
PageNum: Integer);
这里的PageNum也可以得到总页数。

 

冷

冷叶风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-25

• #3

qhmao兄:
求总页数的问题我已经回答你了，只要改动onpreview事件预览时就可搞定总页数。
我已把源程序寄给你了，祝你一切顺利。（画表格线除了lianke兄的办法，现在小弟还
想不出更好的方法）。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #4

多人接受答案了。