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