Printing multiple columns on one page
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 |
All times are GMT +1. The time now is 02:43 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com