View Zoom Two Pages macro

[Kamran]

Hello,
I'm trying to make a macro that gives me a shortcut to View Zoom Two Pages.
I used the macro recorder to get the last part of the code, but I need it to
give me the two-page view in Print Layout from whatever other mode it's in
when I select it. Thanks for any help.
Kamran.

=======

If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
With ActiveWindow.ActivePane.View.Zoom
.PageColumns = 2
.PageRows = 1
End With
End Sub

 

[Kamran]

Thanks for the response. It seems I'm having the same problem with both
versions: It doesn't work if Word is in Print Layout mode. When I switch
first to Normal View, then the macro works.