Step through and print rows of data one at a time

Posted by MattH on December 17, 2001 12:52 AM

I posted this about 10 days ago and got this reply (I've been moving house this week), which is what I wanted to do in the first place - probably didn't word it too well. Can anyone tell me how to step through a row of records, printing each row - formatted on a seperate sheet(eg. data list on sheet 1 but printed out from sheet 2)?

Thanks.

In Reply to: copy rows posted by Matthew Halliday on December 07, 2001 at 07:54:54:

Why not "pull" all the data at once and modify
your Macro to step through each record?

Posted by Jacob on December 17, 2001 4:59 AM

Hi
Try something like this:

Sub PrintIt()
Dim EndRow
sheets(1).select
endrow = range("A65536").End(xlUp).Select
for x = 1 to endrow
rows(x).select
sheets(2).select
selection.copy
range("A1").select
activesheet.paste
ActiveWindow.SelectedSheets.PrintOut Copies:=1
next x

End Sub

hope this helps

Jacob