changes the view for Sample.doc to Print Layout view
Sub view() Documents("Sample.doc").Windows(1).View.Type = wdPrintView End Sub