VBA/Excel/Access/Word/Word/Document View

changes the view for Sample.doc to Print Layout view

 
Sub view()
    Documents("Sample.doc").Windows(1).View.Type = wdPrintView
End Sub

Change the document view to normal view

 
Sub view()
    Documents("Sample.doc").Windows(1).View.Type = wdNormalView
End Sub

Change the document view to print view

 
Sub view()
    Documents("Sample.doc").Windows(1).View.Type = wdOutlineView
End Sub

change the document view to reading view

 
Sub view()
    Documents("Sample.doc").Windows(1).View.Type = wdReadingView
End Sub

Change the document view to wdMasterView

 
Sub view()
    Documents("Sample.doc").Windows(1).View.Type = wdMasterView
End Sub

change the document view to wdWebView

 
Sub view()
    Documents("Sample.doc").Windows(1).View.Type = wdPrintView
End Sub

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