I have a user changing PageSetup scaling when opening this workbook/worksheets. Problem is, this in turn changes the print output for other users when they open the workbook €“ makes the print undersize for the page. To enforce a standard, I want to add code to change scaling in the workbook opening sequence (for PageSetup.Zoom) as follows

Worksheet Scalin
Scorecard 95
Customer 91
Financial 91
Learning and Growth 91
Internal Business Process 91

How would the following code be modified to accomplish this

Sub Auto_Open(
Dim ws As Workshee

Application.ScreenUpdating = False
Application.DisplayFullScreen = True

For Each ws In Worksheet
If ws.Visible = xlSheetVisible The
ws.Selec
Application.Goto ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.View = xlNormalVie
End I
Nex

Worksheets("Customer").Select 'Selects the Customer workshee
ActiveWindow.Zoom = 62
Worksheets("Financial").Select
ActiveWindow.Zoom = 62
Worksheets("Learning and Growth").Selec
ActiveWindow.Zoom = 6
Worksheets("Internal Business Process").Selec
ActiveWindow.Zoom = 6
Worksheets("Scorecard").Selec
ActiveWindow.Zoom = 6

ThisWorkbook.Colors(7) = RGB(255, 124, 128
Application.AutoPercentEntry = Tru
Application.ScreenUpdating = Tru

End Su

ActiveSheet.PageSetup.zoom = 95,etc.

Phil Hageman wrote:

I have a user changing PageSetup scaling when opening this workbook/worksheets. Problem is, this in turn changes the print output for other users when they open the workbook €“ makes the print undersize for the page. To enforce a standard, I want to add code to change scaling in the workbook opening sequence (for PageSetup.Zoom) as follows:

Worksheet Scaling
Scorecard 95%
Customer 91%
Financial 91%
Learning and Growth 91%
Internal Business Process 91%

How would the following code be modified to accomplish this?


Sub Auto_Open()
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayFullScreen = True

For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.Goto ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.View = xlNormalView
End If
Next

Worksheets("Customer").Select 'Selects the Customer worksheet
ActiveWindow.Zoom = 62
Worksheets("Financial").Select
ActiveWindow.Zoom = 62
Worksheets("Learning and Growth").Select
ActiveWindow.Zoom = 62
Worksheets("Internal Business Process").Select
ActiveWindow.Zoom = 62
Worksheets("Scorecard").Select
ActiveWindow.Zoom = 62

ThisWorkbook.Colors(7) = RGB(255, 124, 128)
Application.AutoPercentEntry = True
Application.ScreenUpdating = True

End Sub