How do I create a button that prints 2 copies of a form?

[Adam - Regus]

I'm trying to create a button that prints 2 copies of a form. Using
the wizard, I created a button that prints one automatically, using the
following code:

End Sub

Private Sub CSR_BeforeUpdat e(Cancel As Integer)

End Sub
Private Sub PRINTFORM_Click ()
On Error GoTo Err_PRINTFORM_C lick
DoCmd.DoMenuIte m acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection

Exit_PRINTFORM_ Click:
Exit Sub

Err_PRINTFORM_C lick:
MsgBox Err.Description
Resume Exit_PRINTFORM_ Click

End Sub

-------------------------------------END OF
CODE----------------------------------------------------

So anyone know how I can get it to print 2 copies automatically?
thanks for your help,

Adam

[Ted]

First the simple answer:
Use a For...Next loop:
For x = 1 to 2
print commands
Next x

Second: The best answer for your client (and what I do):
Create a form (with a table behind it) that holds user preferences.
In that form have a box where the user can select the number of copies
to print (default to 2).
Let the user change that number if they want to print more or fewer
copies.
Modify your For...Next loop to:
For x = 1 to DLookup("[Copies]", "tblUserPre fs")
print commands
Next x

Ted
Adam - Regus wrote:

I'm trying to create a button that prints 2 copies of a form. Using
the wizard, I created a button that prints one automatically, using the
following code:

End Sub

Private Sub CSR_BeforeUpdat e(Cancel As Integer)

End Sub
Private Sub PRINTFORM_Click ()
On Error GoTo Err_PRINTFORM_C lick
DoCmd.DoMenuIte m acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection

Exit_PRINTFORM_ Click:
Exit Sub

Err_PRINTFORM_C lick:
MsgBox Err.Description
Resume Exit_PRINTFORM_ Click

End Sub

-------------------------------------END OF
CODE----------------------------------------------------

So anyone know how I can get it to print 2 copies automatically?
thanks for your help,

Adam

[Adam - Regus]

Ted,

I'm not sure where in the code I should put the code:

For x = 1 to 2
print commands
Next x

I would rather have the simple solution, as I'm not really a
programmer. I'm more the guy who delivers the mail, who happens to
know a little something about computers....bu t not enough!

Thanks Again,

Adam

[Dean]

Adam - Regus wrote:

I'm trying to create a button that prints 2 copies of a form. Using
the wizard, I created a button that prints one automatically, using the
following code:

End Sub

Private Sub CSR_BeforeUpdat e(Cancel As Integer)

End Sub
Private Sub PRINTFORM_Click ()
On Error GoTo Err_PRINTFORM_C lick
DoCmd.DoMenuIte m acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection

Exit_PRINTFORM_ Click:
Exit Sub

Err_PRINTFORM_C lick:
MsgBox Err.Description
Resume Exit_PRINTFORM_ Click

End Sub

-------------------------------------END OF
CODE----------------------------------------------------

So anyone know how I can get it to print 2 copies automatically?
thanks for your help,

Adam

I have not tried this solution but:
Private Sub CSR_BeforeUpdat e(Cancel As Integer)
End Sub
Private Sub PRINTFORM_Click ()
On Error GoTo Err_PRINTFORM_C lick
DoCmd.DoMenuIte m acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection
DoCmd.PrintOut acSelection

Exit_PRINTFORM_ Click:
Exit Sub
Err_PRINTFORM_C lick:
MsgBox Err.Description
Resume Exit_PRINTFORM_ Click
End Sub

[Lyle Fairfield]

I am on the road. I have no printer. If I had a printer I would try:

Private Sub PRINTFORM_Click ()
DoCmd.PrintOut
DoCmd.PrintOut
End Sub

But if I were designing the form there would be no button. I would tell
anyone who wanted two printed copies of the form to Click File > Print
and then to use the Spinner to select any number of copies needed.

What's worse than a Button that duplicates a method made available by
Access in a way that is consistent across almost all applications?
Can't guess? It's a Button that duplicates a method made available by
Access in a way that is consistent across almost all applications whose
Click Event has been scripted by a wizard.
"DoCmd.DoMenuIt em acFormBar, acEditMenu, 8, , acMenuVer70" means
absolutely nothing to me; perhaps it's possible that in some
situations it may mean absolutely nothing to Access/VBA.

Eighty per cent of all poor code and practices can be traced to
Wizards. And Northwind is directly responsible for another eighty per
cent. The rest is attributable to the Help file.