Print modified copies of a report

[powella]

For record keeping purposes I want a second copy of a report to print. I want to have the original copy print and then I will load a picture or change a text box and then print again. I want this to happen when the user clicks print from the report.

The goal is to have the copy say copy or something like that.

Any help would be appreciated.
Thanks, Andrew

 

[powella]

well to answer some of my own question. I can get two copies with this code:

If PrintCount < 2 Then
Me.NextRecord = False
Printer.PaperBin = acPRBNLower
Else
Printer.PaperBin = acPRBNMiddle
Me.NextRecord = True
End If

I can insert a function call to add the "copy" watermarks to my prints.

Changing the paperbin doesn't seem to have the alternating bin effect that I want. The goal now is to get the copy to print on different colored paper.

 

[ProgramError]

if you want one piece of text to be printed if one condition is met or anther printed if it is not met the how about putting a label on the report with the following code in the record source.

=iif([original],"","copy")

this will check a variable called original and print 'copy' if it is false or nothing if it is true.


Program Error
Programmers do it one finger at a time!

 

[powella]

Thank you ProgramError. I am close to posting my code. I have figured out a way to get the copies to print to a different tray. I have some duplicate code in two places. so I need to narrow down which cod is actually doing the work and then I can post it