Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Report total number of pages - Quickreport v3

820 views
Skip to first unread message

Cesar Miranda

unread,
Jun 5, 1999, 3:00:00 AM6/5/99
to
Hi,

I want to print a pagefooter with the following information:

'Page x of y'

where x is the current page number and y is the total pages of the report.
I'm asking if there is any way to do this without using the prepare method
of TQuickReport ?

Thanks

Cesar Miranda

TinLe

unread,
Jun 7, 1999, 3:00:00 AM6/7/99
to

>'Page x of y'
>
>where x is the current page number and y is the total pages of the report.
>I'm asking if there is any way to do this without using the prepare method
>of TQuickReport ?

I hope this will work for you. rptTBScreen is the name of quick
report ( ie: qrreport1.)


rptTBScreen.Prepare;
IntPageCount := rptTBScreen.QRPrinter.PageCount;
rptTBScreen.ReportTitle := 'This report has ' +
IntToStr(rptTBScreen.QRPrinter.PageCount) + ' pages';
rptTBScreen.QRPrinter.Free;
rptTBScreen.QRPrinter := nil;
Screen.Cursor := crdefault;
rptTBScreen.Preview;
rptTBScreen.Free;


TinLe

unread,
Jun 7, 1999, 3:00:00 AM6/7/99
to

Petio Tonev

unread,
Jun 8, 1999, 3:00:00 AM6/8/99
to
Hi, Cesar.

Look in http://www.w3.to/tonevsoft/faq00002-en.htm or to KB.zip on QuSoft.

Gratitude.

ps. I'm sorry for my very bad English.
--
Petio Tonev
pto...@iname.com
www.i.am/ptonev

0 new messages