Print one page per row

  • Thread starter Thread starter Richard
  • Start date Start date
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
 
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
 
Back
Top