Another approach to the printing issue is to have each iteration of the
loop copy the data to a temp sheet and insert pagebreaks after each
one. This would allow you to do 1 print job consisting of 19 pages.
(Exact #pages depends on your FontSize and relative RowHeight. My
PrintPreview showed all 60 rows on a single page, with room for more.
My standard font is Arial and its FontSize is 8. I also use 1/2"
margins all around)

I use this approach to batch print recurring invoices, inputting only
the first invoice number and the billing date. I also set PrintOut
Preview:=True so I can check things before committing the print job.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc