报表的页次问题!(100分)

H

horse0915

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #1

假如做一张简单的报表, 报表中只用一个QrRichedit来显示报表的内容
现在我通过Trichedit或Tmemo来控制报表的内容, 不通过Quickrep的预览,
我能不能像在Word里超过每超过一页, 给予提示! 使页次比较清楚, 谢谢!

 

H

horse0915

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #2

没有人知道呀!, 那我怎样不通过预览可以知道报表的总页数, 且我在编辑Tmemo的时候变动, 我用
Memechange事件中用
Quickrep1.prepare;
pgcount:quickrep1.qrprinter.pagecount
来取总页数, 这样速度太慢, 而且只有第一次变动, 有没有更好的方案, 谢谢!

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-10

• #3

使用LastPage也可以得到总共有几页.

 

H

horse0915

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #4

tks,但問題不能根本解決

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #5

将QRExpr 的 data 设为qrsPageNumber ， 可以自动显示

 

G

greenwon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-31

• #6

在報表所在的窗口的Oncreate事件中寫上：
假設此窗口為Form1;
var count:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
quickrep1.Prepare;
count:=quickrep1.QRPrinter.PageCount;//此為報表的總頁數
quickrep1.QRPrinter.free;
quickrep1.QRPrinter:=nil;
end;
至于當前的頁次，可放一個QrsysData1控件，設置其Data屬性為Pagenumber即可

 

L

liuly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-05

• #7

多人接受答案了。