Forum Home
Press F1
 
Thread ID: 90592 2008-06-09 02:47:00 Excel Question globe (11482) Press F1
Post ID Timestamp Content User
676655 2008-06-09 02:47:00 I have a spreadsheet with several (10 plus) work sheets within it. Is there a way to adjust the page set up (specifically for printing) on all the worksheets at the same time or do I have to alter each individually ?

Cheers
globe (11482)
676656 2008-06-09 03:40:00 Try selecting "Entire Workbook" when you print. My default is "Active Sheets" Bantu (52)
676657 2008-06-09 03:47:00 Most of the page setup variables are adjustable with VBA - what exactly are you trying to do globe? nofam (9009)
676658 2008-06-09 04:00:00 Most of the page setup variables are adjustable with VBA - what exactly are you trying to do globe?

the way the work book is set up is that the author did not set all the pages to landscape and I also need to set it to print to fit on a single page. Currently they are set to portrait and the amount on each page per print is all over the place (if that makes things clearer ?)
globe (11482)
676659 2008-06-09 04:16:00 How about something like this:


Function doallSheets()

Dim globeSheet As Worksheet

For Each globeSheet In Worksheets

globeSheet.Activate

With ActiveSheet.PageSetup

.PrintTitleRows = "$1:$1"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1

End With

ActiveSheet. Cells.Select
Selection.RowHeight = 13.5
Selection.EntireColumn.AutoFit
Range("A1").Select

Next globeSheet

End Function
nofam (9009)
676660 2008-06-09 05:44:00 (Haven't tried this yet) Why don't you just hold the CTRL button down, use the mouse to select the tabs of the sheets you want, then go to print setup etc Helplesss (272)
676661 2008-06-09 06:19:00 Page layout functions in Excel can enable you to do this, Dulouz (7243)
1