I
Ivor Williams
I have a form with a subform. On the subform, one of the text boxes
contains a number. Also on the subform is a command button. When the command
button is clicked, a report is printed based on the current record in the
subform. I would like to print a number of copies of the report equal to the
number in the text box. The code I use to print the form is:
Private Sub cmdPrintLabel_Click()
On Error GoTo Err_cmdPrintLabel_Click
Dim stDocName As String
stDocName = "rptShipLabel"
DoCmd.OpenReport stDocName, acNormal, , "[ID]=" & Me![ID]
Exit_cmdPrintLabel_Click:
Exit Sub
Err_cmdPrintLabel_Click:
MsgBox Err.Description
Resume Exit_cmdPrintLabel_Click
End Sub
How do I modify the code to print the desired number of copies?
Ivor
contains a number. Also on the subform is a command button. When the command
button is clicked, a report is printed based on the current record in the
subform. I would like to print a number of copies of the report equal to the
number in the text box. The code I use to print the form is:
Private Sub cmdPrintLabel_Click()
On Error GoTo Err_cmdPrintLabel_Click
Dim stDocName As String
stDocName = "rptShipLabel"
DoCmd.OpenReport stDocName, acNormal, , "[ID]=" & Me![ID]
Exit_cmdPrintLabel_Click:
Exit Sub
Err_cmdPrintLabel_Click:
MsgBox Err.Description
Resume Exit_cmdPrintLabel_Click
End Sub
How do I modify the code to print the desired number of copies?
Ivor