How to determine the Copy number

rbuser

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

rbuser

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;

rbuser

Tanks for your help - it worked perfect !

"Chris Ueberall [TeamDM]" skrev i melding