I recorded this to open
Code: Select all
ActiveWindow.View = xlPageBreakPreview
Code: Select all
ActiveWindow.View = xlNormalView
Code: Select all
ActiveWindow.View = xlPageBreakPreview
Code: Select all
ActiveWindow.View = xlNormalView
Code: Select all
Sub ToggleView()
With ActiveWindow
If .View = xlPageBreakPreview Then
.View = xlNormalView
Else
.View = xlPageBreakPreview
End If
End With
End Sub
Code: Select all
With ActiveWindow
If .SelectedSheets.PrintPreview Then
.View = xlNormalView
Else
.SelectedSheets.PrintPreview
End If
End With
Code: Select all
ActiveWindow.SelectedSheets.PrintPreview