Looping code for printing reports

[Lockrin]

Hello All. I have 3 reports that I print on a regular basis. I want to set these to Loop as many times as a table with a "QTY" field says they need to for that shipment. I have a report that is run from a query that filters for the shipment and has the "Job Number" and "QTY" fields. The code I have prints all 3 reports with one button but I need to look at the report to tell it how many of each to print along with entering the "Job Number" every time. The code I use now is as follows:

Private Sub Command447_Click()

On Error GoTo Err_Ctl5_Click

Dim stDocName As String

stDocName = "Record of Accomplishment"
DoCmd.OpenReport stDocName, acNormal
stDocName = "Dimesional Inspection Form"
DoCmd.OpenReport stDocName, acNormal
stDocName = "Assembly Drawing"
DoCmd.OpenReport stDocName, acNormal

Exit_Ctl5_Click:
Exit Sub

Err_Ctl5_Click:
MsgBox Err.Description


Resume Exit_Ctl5_Click

End Sub

[llkhoutx]

Print the reports in PrintPreview mode, the use Ctl+P and you'll be able to specify the number of copies.

[Lockrin]

That's not really what I want to do. I have 3 separate reports that are printed and all 3 are based on a text box on my switchboard. In order to get the reports printed I need I print a 4th report (which shows how many of each "Job Number" I need). This way works, I just want to simplify the process.

I came up with this code last night, but it only works with the first record. (I plan on changing the MsgBox to the code needed to print those reports once I get it to go through all the records.)

Private Sub Print_Click()
Do While Nz(Me.txtCount.Value) < Ship_Qty
MsgBox "This is where we'll add the code to print the reports"
Me.txtCount.Value = Nz(Me.txtCount.Value) + 1
Loop

End Sub