Number of copies to print

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
 
K

Ken Snell \(MVP\)

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Page numbering with Merged Document and IF statements 1
Space at end of multi page list to accommodate new entries 1
VBA word change keys 0
Print order of TriFold - Publisher 365 0
Need Help with a VBA subroutine 0
Keep First Letters, with exceptions 0
Detail_Format works in Print Preview but Not When Printing 0
Print A For (docm), Send Email Attachment And Close For Without Saving 2

Top