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


--
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