Print one page per row
 

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

Print one page per row
 

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


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Richard" wrote in message ...
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