tidusx18
7/17/2017 - 8:23 PM

Sets MS Word Zoom to 100%, One Page Column, Print View.

Sets MS Word Zoom to 100%, One Page Column, Print View.

Sub ZoomHundredPercent()
'
' Sets zoom in active document to 100% - single page
'
'
' ActiveDocument.View.Zoom.Percentage = 100

With ActiveDocument.ActiveWindow.View
 .Zoom.PageColumns = 1
 .Type = wdPrintView
 .Zoom.Percentage = 100
End With

End Sub