PageRows Property Example

This example switches the active window to print preview and displays two pages one above the other.

PrintPreview = True
With ActiveDocument.ActiveWindow.View.Zoom
    .PageColumns = 1
    .PageRows = 2
End With