Solved print 4 copies of a report through vba (1 Viewer)

[Sneale]

Hello I have a form that I created to enter some data and them have a report print out when you click a button. I have the following code in the button.

Private Sub Command20_Click()
Const MESSAGETEXT = "No current record."
Dim strCriteria As String

strCriteria = "ID = " & Me.ID

If Not IsNull(Me.ID) Then
Me.Dirty = False
DoCmd.OpenReport "rptBOL", _
WhereCondition:=strCriteria

Else
MsgBox MESSAGETEXT, vbExclamation, "Invalid Operation"
End If
End Sub

I need the report to print with 4 copies. what do I need to add and where to get that to print the 4 copies? Thank you in advance

 

[June7]

Open report to PrintPreview then use DoCmd.PrintOut command which has a Copies argument.

DoCmd.OpenReport "rptBOL", acViewPreview, , strCriteria
DoCmd.PrintOut , , , , 4
DoCmd.Close

 

[Sneale]

Open report to PrintPreview then use DoCmd.PrintOut command which has a Copies argument.

DoCmd.OpenReport "rptBOL", acViewPreview, , strCriteria
DoCmd.PrintOut , , , , 4
DoCmd.Close

That worked great! thank you very much