Printing multiple forms as one print job

[superdave51]

I have a simple little project where I am extracting rows of data from a
excel spreadsheet. The data is then placed into a form that is printed
to a Intermec label printer. The code currently updates and prints the
form until there is no more data on the sheet. This method generates a
lot of print jobs in the queue. I guess my question is is there a
better way of doing this. I would like to store the form as a page and
then return and print all the pages as one print job after I run out of
data on the sheet. Is this even possible. Any help is greatly
appreciated.



'*************************
'*************************
Private Sub MakeLabel_Click()

R = 2 'row offset

While Cells(R, 1).Value <> ""

userform1.DueDate = Cells(R, 1)
userform1.Order = Cells(R, 2)
userform1.Line = Cells(R, 3)
userform1.Part = Cells(R, 4)
userform1.Description = Cells(R, 5)
userform1.Qty = Cells(C, 6)

userform1.PrintForm

R = R + 1

Wend

End Sub

 

[NickHK]

superdave51,
Do you really need the form ?
Could you not just repeat a section of suitably formatted XL cells, with a
page break after each section, then print the whole sheet, or set the
..PrintArea ?
(I'm not familiar how an "Intermec label printer" handles pages v. jobs
though.)

NickHK

"superdave51" <[email protected]>
wrote in message
news:[email protected]...