Delete previous code and replace with this code;
Private Sub cmdPrintReport_Click()
Code:
Dim strCopyCount As Byte
Dim strReport As String
strReport = "RptData"
strCopyCount = Me.cboHowMany.Column(1)
Call PrintMultipleCopies(strReport, strCopyCount)
End Sub
After End Sub hit the enter key go to a new line and paste this;
Code:
Public Function PrintMultipleCopies(strReportName As String, _
bytNumberOfCopies As Byte)
Dim bytCounter As Byte
For bytCounter = 1 To bytNumberOfCopies
DoCmd.OpenReport strReportName
Next bytCounter
End Function
I note that in your code your have;
Code:
strCopyCount = Me.cboHowMany.Column(0)
I have;
Code:
strCopyCount = Me.cboHowMany.Column(1)
Are you sure that yours is correct?
The reason the code that I posted did not work was I posted the wrong copy of the code ... sorry my error.
If you still can't get it to work either post a copy of your db and I or someone else will have a look at it OR post back and I will post you an updated sample.