expression.PageRows
expression Required. An expression that returns a Zoom object.
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