QUICKREPORT 如何动态换页 ( 积分: 50 )

G

gbyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-04

• #1

我在quickreport的onneeddata时间中
if Qrp_GdSj.RecordNumber = 5 then
begin
Qrp_GdSj.Printer.EndDoc;
Qrp_GdSj.NewPage;
end;
写，他就是不换页，改怎么让他换页！谢谢

 

G

gbyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-04

• #2

我在quickreport的onneeddata时间中
if Qrp_GdSj.RecordNumber = 5 then
begin
Qrp_GdSj.Printer.EndDoc;
Qrp_GdSj.NewPage;
end;
写，他就是不换页，改怎么让他换页！谢谢

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-04

• #3

不要在quickreport的onneeddata事件中写，试试把代码写在DetailBand的BeforePrint事件中。

 

天

天堂鸟6420

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-04

• #4

定义printno为打印行数, datanumperpage 为每页打印行数
在detailband的beforeprint中如下:
if DataNumPerPage <>
0 then
begin
Inc(PrintNo);
(Sender as TQRCustomBand).ForceNewPage
:= ((PrintNo mod DataNumPerPage) = 1);
end;
这样每DataNumperpage行后就换一页重新开始打印

 

L

luckhacker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-04

• #5

goto

 

G

gbyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-04

• #6

好像还是没有用，预览是就没有分页，打印时还是没有分页！
这是我代码
DATANUMBERPAGE:=5;
PRINTNO:=QRP_GDSJ.RecordNumber;
if DataNumberPage <>
0 then
begin
Inc(PrintNo);
(Sender as TQRCustomBand).ForceNewPage
:= ((PrintNo mod DataNumberPage) = 1);

 

G

gbyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-04

• #7

ok！搞定，用newpage就行了！！

 

G

gbyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-04

• #8

多人接受答案了。