简单的报表的问题，急急急！！！！(100分)

F

fat-cat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-14

• #21

procedure TForm2.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
i:=i+1;
if i = 7 then
begin
i:=0;
QuickRep1.NewPage;
end;
end;
我是按照这个做的，在预览的时候确实是7行，但是在打印的时候分了二页，第一页为三行，
第二页为7行，预览和打印不符合？高手，帮忙！！！！！

 

L

liuly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-14

• #22

估计是这个i没有初始化吧 []
在QuickRep的beforeprint事件中加上这句：
i := 0;

 

S

sisha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-14

• #23

对，要在BeforePrint上加：
i := 0;
因为在Preview是i的值已经开始改变，而在Print的时候QuickRep会再生成一次，
这时你需要再初始化。

 

F

fat-cat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #24

to sisha：又遇到问题了，本来是想每条记录都有固定的长度，可是我用qrexpr来显示表
中的字符串类型的数据，但qrexpr总是随着串的长度来自动调节高度，又出现了每条记录
的高度不一致的问题，怎么解决呢？

 

S

scloudy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #25

请检查一下qrexpr.WordWrap的设置，当为True时，自动换行，另外你看一下AutoSize和
AutoStretch的设置，你都试试看吧！

 

F

fat-cat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-26

• #26

多人接受答案了。