Hi
I have a form and a subform. Each record in the subform has a field indicating the number of times to print a report for that record. I want to be able to print the report for line 1, x number of times... move to line 2 then print x number of times, until EOF. For some reason I just can't seem to get it to work properly. I have started with this code:
Dim stDocName As String
Dim printCounter As Integer
Dim skids As Integer
Dim rs As Object
Set rs = Me.Recordset.Clone
Do While Not rs.EOF
skids = Forms!frmpackagingdetails.qtySkidsRequired.Value
Do While printCounter <= skids
stDocName = "rptSkidTagsAuto"
DoCmd.OpenReport strDocName
printCounter = printCounter + 1
rs.MoveNext
Me.Bookmark = rs.Bookmark
Loop
rs.Close The print loop is fine if i have only a couple of copies but if I have 50+ copies per line it sends each on individually which is painfully slow. I need to send total copies for each line instead of looping the print. An error also occurs when it reaches the EOF but I dont see why. The error is 3021 no current record but I thought the while not rs.EOF should stop before it tries to move to the next record?
Any help would be appreciated
Cheers,
Kevin