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.

One way:

Choose File/Page Setup/Sheet and enter A:A in the Columns to keep at
left textbox.

Insert Select each column (C:AZ) and insert a page break between each
column.

In article ,
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.

Disregard. I completely misread the question....

In article ,
JE McGimpsey wrote:

One way:

Choose File/Page Setup/Sheet and enter A:A in the Columns to keep at
left textbox.

Insert Select each column (C:AZ) and insert a page break between each
column.

In article ,
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.

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

Thnaks Dave. Will try as soon as time permits. Will post again when I can.

Thanks

"Dave Peterson" wrote:

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