Excel Workbook Sizes

  • Thread starter Thread starter Mike Hudson
  • Start date Start date
M

Mike Hudson

One of our clients has recently had the O\S re-installed on there PC.
Nothing hardware has changed!

They own several hundered excel spreadsheets, which they use frequently!

Unfortunatly the workbooks no longer wants to fit onto one page, and one of
the coloumbs spans onto a second page.

Now I can quite easily ammend the print area, and this solves the problem.

BUT I don't want to have to do this on every sheet in every book.

Is there no way of doing this globally? Or through VBA?

Thanks
 
This might help for some :-

'-----------------------------------------
Sub PageFit()
Application.ScreenUpdating = False
For Each ws In Worksheets
With ws.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Next
Application.ScreenUpdating = True
End Sub
'-------------------------------------
 
Back
Top