Home RAP
New Blog Posts: Merging Reports - Part 1 and Part 2

How to determine the Copy number

edited December 2002 in RAP
Hi,

How can I determine the copy number when printing the report.

I need to print "COPY" when copy number >1


Delphi 4 up 3 / RB 4

Best regards
Kjetil Lagarhus

Comments

  • edited December 2002
    Hi Kjetil,


    -------------------------------------------------------
    Tech Tip: Printing a Unique Caption for each copy of
    of a multi-copy report sent to the printer.
    -------------------------------------------------------


    Here's example of sending 3 copies to the printer and printing a unique
    caption for each one.


    1. Set Report.PrinterSetup.Collation to True

    2. Set Report.PrinterSetup.Copies to 3


    2. Set the Report.PassSetting to psTwoPass. (add ppTypes to your "uses"
    clause)

    3. Create a private variable in your form: FCopy

    4. In the Report.BeforePrint event code

    FCopy := 0;

    5. In the Report.OnStartPage event code

    if ppReport1.SecondPass and (ppRepor1.AbsolutePageNo = 1) then
    Inc(FCopy);


    6. Add a Label to the Report and in the OnPrint event code something
    like:

    case FCopy of
    1: ppLabel1.Caption := 'Shipping';
    2: ppLabel1.Caption := 'Order Processing';
    3: ppLabel1.Caption := 'Account Receivable';
    end;



    HTH,
    Chris Ueberall;
  • edited December 2002
    Tanks for your help - it worked perfect !

    "Chris Ueberall [TeamDM]" skrev i melding
This discussion has been closed.