Iterate through records and print report

[cap10101]

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

printCounter = 1

Do While printCounter <= skids

stDocName = "rptSkidTagsAuto"


DoCmd.OpenReport strDocName
printCounter = printCounter + 1

Loop

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

[weekend00]

An error occurs when it reaches the EOF because you reference rs.bookmark when eof.

rs.MoveNext
Me.Bookmark = rs.Bookmark
Loop
rs.Close

[weekend00]

maybe these codes help?

DoCmd.OpenReport strDocName, acViewPreview
DoCmd.SelectObject acReport, strDocName
DoCmd.PrintOut acSelection, , , , numCopies
DoCmd.CLOSE acReport, strDocName

[cap10101]

Thanks a lot weekend00! I had already changed my code to what you typed and it worked perfectly. Is there a way to hide the report window from popping up but still keep it the selected object so that the PrintOut method can print it?

Also, if i dont have the Me.bookmark = rs.Bookmark the code does not proceed, it just repeats the print on the same record instead of advancing. Do I need to place that elsewhere in my code so it works properly or am I missing something else?

[weekend00]

1 you may try to hide the report or minimize it.


2 the most directly way is add an if statement:

rs.MoveNext
if not rs.eof then Me.Bookmark = rs.Bookmark
Loop
rs.Close

[cap10101]

Haha, so simple. Thanks again weekend00... worked like a charm.