Number of copies to print

  • Thread starter Thread starter Ivor Williams
  • Start date Start date
I

Ivor Williams

I have in in the AfterUpdate event of a form the following code:

If PrepareSubsTrans = -1 Then DoCmd.OpenReport "rptSubsTrans", acViewPrint

Everything works fine, but I want to print 2 copies of the report. How do I
include this in the code?

Ivor
 
Dim lngCount As Long
If PrepareSubsTrans = -1 Then
For lngCount = 1 To 2
DoCmd.OpenReport "rptSubsTrans", acViewPrint
Next lngCount
End If
 
Back
Top