how to print each row on seperate page

[jvoortman]

how to print each row on seperate page. I have an excel speadsheet with
hundreds of rows of data, and I want to print it in such a manner that
each line ends up on it's own sheet. Any ideas??? Thank!!
(e-mail address removed)

 

[Paul B]

jboortman, you could use a macro like this to put in a page break after each
row in column A and then print the sheet

Sub Insert_Page_Breaks()
Set rng = Range(Cells(2, 1), _
Cells(Rows.Count, 1).End(xlUp))
For Each cell In rng
ActiveSheet.HPageBreaks.Add cell
Next
End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

 

[jvoortman]

that worked great....thank you

 

[Paul B]

Your Welcome
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003