Printing multiple columns on one page

[Guest]

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.

 

[JE McGimpsey]

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.

 

[JE McGimpsey]

Disregard. I completely misread the question....

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.

 

[Dave Peterson]

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!

 

[Guest]

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

Thanks