printing one row per page in Excel 2003

[EnzoM3]

I was wondering if there is an easier way to print only one row per page. I
found two ways to do it but both are a pain to use when I need to print a
bunch rows.

The first way I found is to select the rows using the Ctrl key (not Shift
key for group selection), then print the Selection and Excel will print one
row a page, on top of the page. Using the Shift key to select the rows
cause them to be printed on the same page. The pain here is I have to click
on each row to select it.

The second way is to use page breaks if the rows are bunched together, but
then I have to define a page break under each row, which is even slower than
the first method.

Does anyone know of a faster way? I searched MS support and Google and
couldn't find any answers.

Thanks,

Jim

 

[Don Guillett]

This will print each row separately.
change printpreview to printout

Sub printeachrowonapage()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Rows(i).PrintPreview
Next i
End Sub

 

[EnzoM3]

Thank you!

This works, but it prints all rows in the sheet. How do I modify this to
only print the rows that I have selected?

Thanks,

Jim

 

[Don Guillett]

This will work for the selected rows IF you select the cells instead of the
row numberes on the left.

Sub printselectedrows()
For Each r In Selection
Cells(r, 1).EntireRow.PrintPreview
Next r
End Sub