PrintPreview

[Guest]

How can a PrintPreview screen be close through VBA code?

Thank you in advance for your help.

 

[Bob I]

maybe Sendkey the Escape key?

 

[Guest]

No that doesn't do the job

maybe Sendkey the Escape key?

 

[Bob I]

What about Alt+C ?

No that doesn't do the job

:

 

[Guest]

The problem seems to be that I use a MsgBox which shows up on the original
sheet and not on the Preview window. This is the code I am trying to run:

Sub Test()
Dim oWS As Worksheet
For Each oWS In Worksheets
oWS.PrintPreview
If MsgBox("Close?", vbYesNo) = vbYes Then SendKeys "{ESC}"
Next oWS
End Sub

 

[Bob I]

As I recall those message/dialog boxes have the focus. Until you clear
that, you can't access the window, because it doesn't have focus. In
looking at your code, I think you could dispense with
"If MsgBox("Close?", vbYesNo) = vbYes Then " and just use

SendKeys "{ESC}"