Printing Invoices

[Alex Motilal]

Hi everybody,
In my Orders MS Access Database, I print Invoices each 3 copies. Is it possible to create an unbound control, which should read for the first copy as "ORIGINAL", for the second copy as "FOR TAX DEPARTMENT" and for the third copy as "COPY FOR FILE" ?
I think there should be some code on the Print Event of the Report.


Thanks in advance.

[ansentry]

Have a look at the attached sample.

It is not set out correctly for an "Invoice" but will give you code that you can use in your database.

You will see that it will only print the "Current" record showing on the form.

It will not allow you to print a blank "Invoice"

I have used Open Arguments (OpenArgs) to make it work.

Make sure you change then "names" to suit your database.

[Access_Blaster]

Alex,
Here is my down and dirty solution.

Create a report named rptOriginalCopy, place a label in the header that reads Original Copy.
Copy and paste a second version of the same report and rename it rptTaxCopy change its label to Tax Copy.
Copy and paste a third version of the same report and rename it rptFileCopy change its label to File Copy.

This code prints 3 copies of the current record(s)
strWhere = "[YourID] = " & Me.[YourID] this is where your primary key ID goes
Next create a command button and cancel the wizard, in the 'on click' event place this code:

Dim strWhere As String
If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If
If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[YourID] = " & Me.[YourID]
DoCmd.OpenReport "rptOriginalCopy", acViewNormal, , strWhere 'Prints Oringinal Copy
DoCmd.OpenReport "rptTaxCopy", acViewNormal, , strWhere 'Prints Tax Copy
DoCmd.OpenReport "rptFileCopy", acViewNormal, , strWhere 'Prints File copy 
 
End If

Just tweak it to fit your App
-Richard-

[Alex Motilal]

Thank you both John and Richard.

The solution works fine.

Alex

[ansentry]

Glad to help, good luck with you project.