Solved

Page no in quick report

Posted on 2001-06-04
3
1,131 Views
Last Modified: 2010-04-06
Hi Friends

Could any one help me out the following

1. How to reset page no in quick report

   Page no I am keeping in Page header band
   I am using Group header band , detail band and summary band. Detail band can have more than 1 page records
   depends on group header record change ( for ex. bill no change) I need to reset the page no

2. How can I count total pages in quick report.( For example I need to print like this, Page : 1 of 10 )

It could be grateful if I get procedures

Regards
Pandian
0
Comment
Question by:Pandian012000
3 Comments
 
LVL 8

Expert Comment

by:Cesario
ID: 6153115
Hi Pandian,

reset the page number for every group band.
This is not supported by the QRSysData control.  You will have to track the page number manually and assign the value to a TQRLabel.


To find the total numerber of the pages in your QuickRep:

  QuickRep1.Prepare;
  QuickRep1.ReportTitle := 'Total Pages :' +
      IntToStr(QuickRep1.QRPrinter.PageCount) + ' Pages';
  QuickRep1.QRPrinter.Free;
  QuickRep1.QRPrinter := nil;
  QuickRep1.Preview;

Best Regards

Cesario
0
 
LVL 1

Accepted Solution

by:
bnemmers earned 25 total points
ID: 6187557
Pandian,

On a TQRBand event "BeforePrint"
add the code to print the page x of n

This event will fire on each page


in the code below

 qrMain = the TQuickRep object.
   
 PageNumber is a public variable that I set
 after I did a print preview.
 and access "qrMain.QRPrinter.PageCount"
 

procedure TfrmTabletsRaw.phMainBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  qrlDateTime.Caption := ReportDateTime;
  if PageNumber > 0 then
    qrlPageNumber.Caption := Format('Page %d of %d', [qrMain.PageNumber, PageNumber])
  else
    qrlPageNumber.Caption := Format('Page %d', [qrMain.PageNumber]);
  qrlSampleCount.Caption :=  Format('SubGroup Count:  %d', [FSampleCount]);
end;

If you go httP://www,qusoft.com they have some examples
to download.

Bill.
0
 

Expert Comment

by:SpideyMod
ID: 8280597
Force Accepted

SpideyMod
Community Support Moderator @Experts Exchange
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

680 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question