Is there a special way to conditionally print a watermark on the background of the page. Something like "Draft" or "Copy" printed diagonally across every page.
1. You can use the PageStyle band to print a watermark. (see the Report | PageStyle menu option of the report designer).
2. Try using the PageStyle.BeforePrint event to set the bands visibility or modify any components in the PageStyle.
3. Below is an article for printing a unique caption for each copy of a report sent to the printer...
------------------------------------------------------- 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;
Comments
1. You can use the PageStyle band to print a watermark. (see the Report |
PageStyle menu option of the report designer).
2. Try using the PageStyle.BeforePrint event to set the bands visibility or
modify any components in the PageStyle.
3. Below is an article for printing a unique caption for each copy of a
report sent to the printer...
-------------------------------------------------------
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;
--
Tech Support mailto:support@digital-metaphors.com
Digital Metaphors http://www.digital-metaphors.com
--
Nard Moseley
Digital Metaphors
http://www.digital-metaphors.com
Best regards,
Nard Moseley
Digital Metaphors
www.digital-metaphors.com