Mega Code Archive

 

Categories / VisualBasic Script / Word

 

Change the document view to wdWebView

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