G
Gerry Verschuuren
How can a PrintPreview screen be close through VBA code?
Thank you in advance for your help.
Thank you in advance for your help.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
B
Bob I
maybe Sendkey the Escape key?
G
Gerry Verschuuren
B
Bob I
G
Gerry Verschuuren
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
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
B
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}"
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}"