Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. Zooming the View to Display Multiple Pages
Sub zoom()
    With Documents("Sample.doc").Windows(1).View
        .Type = wdPrintView
        With .Zoom
            .PageColumns = 3
            .PageRows = 2
        End With
    End With
End Sub