How do I fit to 1 page on entire workbook

  • Thread starter Thread starter Val Mc
  • Start date Start date
V

Val Mc

I have approx. 200 sheets in my workbook and I need to fit each sheet to one
page. I can do it individually ( ie. page set up or format painter) but it
takes time. Can I convert the entire workbook to print to 1 page?
 
You can try out the below macro. If you are new to macros..

--Set the Security level to low/medium in (Tools|Macro|Security).
--From workbook launch VBE using short-key Alt+F11.
--From menu 'Insert' a module and paste the below code.
--Get back to Workbook.
--Run macro from Tools|Macro|Run <selected macro()>


Sub FitWorkbookToOneOne()
Dim intTemp As Integer
For Each sh In ActiveWorkbook.Sheets
With sh.PageSetup
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Next
End Sub

If this post helps click Yes
 
You should be able to select all 200 sheets at once (select the first one,
then "Shift-Click" on the last one to select them all). Then go into Page
Setup and select the "Fit to 1 page tall by 1 page wide" option, and set any
other options you desire to have in common amongst those sheets.

HTH,

Eric
 
Back
Top