MICROSOFT ACCESS VB

[seth0101]

THE FOLLOWING IS THE CODE THAT I AM USING TO PRINT A REPORT FROM A FORM. ON CLICK I NEED 2 COPIES OF THE REPORT TO PRINT. IS THERE A CODE THAT I NEED TO PLACE INTO MY CODE?

Sub PrintReceipt_Click()
On Error GoTo Err_PrintReceipt_Click

Dim stDocName As String

stDocName = "Sales Receipt"
DoCmd.OpenReport stDocName, acViewNormal, "Filter Query"

DoCmd.Close acForm, "Enter Sales"

Exit_PrintReceipt_Click:
Exit Sub

Err_PrintReceipt_Click:
MsgBox Err.Description
Resume Exit_PrintReceipt_Click

End Sub

 

[ChrisBurch]

You would be better posting this to forum705, which deals with Access VBA.

Chris

IT would be the perfect job......if it didn't have users!!!

 

[lupins46]

Look at the Printout method in Help