report printout

[Guest]

Hi I use this code to print report from from What must I include to specify
printing 3 copies instead of pressing the print command 3 rimes?

Private Sub printwaybill_Click()
On Error GoTo Err_printwaybill_Click

Dim stDocName As String

stDocName = "waybillrpt"
DoCmd.OpenReport "waybillrpt", acPrint, , "[waybillid]=" & [WaybillID]
Me.Visible = True

Exit_printwaybill_Click:
Exit Sub

Err_printwaybill_Click:
MsgBox Err.Description
Resume Exit_printwaybill_Click

End Sub

 

[Guest]

Since you are sending it directly to the printer, you can issue the DoCmd 3
times

 

[Guest]

On top of David's suggestion, you could use some sort of loop

Private Sub printwaybill_Click()
On Error GoTo Err_printwaybill_Click

Dim stDocName As String
Dim i as integer
i =1
stDocName = "waybillrpt"
For i = 1 to 3
DoCmd.OpenReport "waybillrpt", acPrint, , "[waybillid]=" & [WaybillID]
next i
Me.Visible = True

Exit_printwaybill_Click:
Exit Sub

Err_printwaybill_Click:
MsgBox Err.Description
Resume Exit_printwaybill_Click

End Sub
Both will work, just a matter of preferance.