Creating multiple pages of a single report

rbuser

Hi,

I have to create multiple copies out of a single report that I have so
I'm using that example 'Sending Multiple Reports to a single Print Job'
but unlike the example I'm using only one report. The problem is: it
creates a print job (Windows shows that printer tray icon) but nothing
is printed because it creates a very large print job (~69 MB) and the
size of the report file is only 1 MB. What am I missing?

Any suggestions are welcome.

Paulo Drummond Filho

nardmoseley

Simplest way to print multiple copies is to set the
Report.PrinterSetup.Copies property to the number of copies that want to
generate. This will print as a single print job - which is probably
preferrable unless you want to print copies to different printers.

If you want each copy to have a unique caption, see the article below...


-------------------------------------------------------
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


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

4. Create a private variable in your form: FCopy

5. In the Report.BeforePrint event code

FCopy := 0;

6. In the Report.OnStartPage event code

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


7. 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;



--
Tech Support mailto:support@digital-metaphors.com
Digital Metaphors http://www.digital-metaphors.com


--