Mega Code Archive

 

Categories / VisualBasic Script / Word

 

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