Print one page per row

R

Richard

Hi,

how would a macro look like that would print one page per
row so that if I have 10 rows with data it would print
each row on one page?

Thanks,

Richard
 
R

Ron de Bruin

Try something like this
It will print 10 rows with 10 columns

Sub test()
Dim a As Long
For a = 1 To 10
With ActiveSheet
.Range(.Cells(a, 1), .Cells(a, 10)).PrintOut
End With
Next
End Sub
 
Top