I think...

Option Explicit
Sub testme01()

Dim iRow As Long

With ActiveSheet

With .PageSetup
.Orientation = xlLandscape
'.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With

For iRow = 1 To 4 '40 when you're done testing!
.Cells(iRow, "A").Resize(1, 52).PrintOut preview:=True
Next iRow
End With
End Sub


And remove preview:=true when you're ready to kill those trees!



tdj wrote:

I have 40 rows of data 52 columns wide. First row are the dates of each
Sunday of the year. Remaining rows are data. How can I print each row of
data with the dates on separate pages? Would like to have each row of dates
and data fit on one page.
Thanks.

--

Dave Peterson