Option Explicit
Private Sub Document_New()
Call Document_Open
End Sub
 
Private Sub Document_Open()
With ActiveWindow
  On Error Resume Next
  'Reduce flickering while changing settings
  .Visible = False
  'Switch to Print Preview mode
  If .View.SplitSpecial = wdPaneNone Then
    .ActivePane.View.Type = wdPrintView
  Else
    .View.Type = wdPrintView
  End If
  With .ActivePane.View.Zoom
    'Set for a 1-page view
    .PageColumns = 1
    'Initialize for best fit
    .PageFit = wdPageFitBestFit
    'Test zoom % and reduce to 125% max
    If .Percentage > 125 Then .Percentage = 125
  End With
  'Display the Rulers
  .ActivePane.DisplayRulers = True
  'Restore the window now that we're finished
  .Visible = True
End With
End Sub