quickreport怎么显示第几页/共几页啊？(50分)

H

huazemingmei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #1

各位大哥，帮帮我，quickreport中怎么显示第几页/共几页啊？

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #2

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2601698

 

J

joioy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #3

QrPreview.PageNumber
QrPreview.QRPrinter.PageCount

 

H

hnxx2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #4

用两个qrsys....控件就行了

 

X

xfhufo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #5

楼上说得对，用两个QRSysData控件，然后在Data属性中设置一下

 

龙

龙的传人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #6

共多少页:
LblPageCount.Caption := '共 ' + IntToStr(QuickRep1.Printer.PageCount) + '页'
QuickRep1.Preview;

第几页:
放一个QRSysData1控件,并设属性:
QRSysData1.data := qrsPageNumber;

 

X

xie0930

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #7

memo1.text =
Page [Page#] of [TotalPages]

 

H

huazemingmei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #8

请问各位，我用
procedure Tfrm_report.QuickRep2Preview(Sender: TObject);
var
maxpage:integer;
begin
Application.CreateForm(Tfrm_acco_print_disp, frm_acco_print_disp);
QuickRep2.Prepare;
maxpage:=frm_report.QuickRep2.Printer.PageCount;
frm_report.QRLabel11.Caption:= '第' + IntToStr(frm_report.QuickRep2.PageNumber) + '页(共' + IntToStr(maxpage) + '页';
with frm_acco_print_dispdo
//预览窗体
begin

qrpreview1.QRPrinter:=TQRPrinter(sender);
currep:=QuickRep2;
print_int:=4;
show;
end;
end;
怎么会提示QRPrinter not ready! 出错啊？？

 

W

whatisgod

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #9

QRPrinter not ready!出错可能是你的打印机安装问题。