Sub zoom() With Documents("Sample.doc").Windows(1).View .Type = wdPrintView With .Zoom .PageColumns = 3 .PageRows = 2 End With End With End Sub