LockWindowUpdate

[Michael Malinsky]

I have tried the methods posted in this NG to freeze the screen when I
update print setting via VBA. I have the following code included as an

add-in:
-----------------
Option Explicit


Private Declare Function LockWindowUpdate Lib "USER32" (ByVal hwndLock
As Long) As Long
Private Declare Function GetDesktopWindow Lib "USER32" () As Long
-----------------
Private Sub Print_Draft()


Dim x As Integer
Dim sh As Object
Dim mycontrol As Object


WindowUpdating (False) 'to freeze the screen


Set mycontrol = CommandBars("Worksheet Menu Bar").Controls("Time
Savers")
If mycontrol.Controls("Print Draft").State = msoButtonUp Then
'To change printer settings to print draft watermark.
Application.SendKeys ("^p")
For x = 1 To 6
Application.SendKeys ("{TAB}")
Next x
Application.SendKeys ("~")
For x = 1 To 2
Application.SendKeys ("{LEFT}")
Next x
For x = 1 To 3
Application.SendKeys ("{TAB}")
Next x
Application.SendKeys ("~")
For x = 1 To 21
Application.SendKeys ("{DOWN}")
Next x
Application.SendKeys ("{RIGHT}")
For x = 1 To 3
Application.SendKeys ("{DOWN}")
Next x
Application.SendKeys ("~")
Application.SendKeys ("{LEFT}")
Application.SendKeys ("{TAB}")
Application.SendKeys ("~")
Application.SendKeys ("{TAB}")
Application.SendKeys ("~")
For x = 1 To 11
Application.SendKeys ("{TAB}")
Next x
Application.SendKeys ("~")
mycontrol.Controls("Print Draft").State = msoButtonDown
'To change printer settings to remove print draft watermark.
ElseIf mycontrol.Controls("Print Draft").State = msoButtonDown Then

Application.SendKeys ("^p")
For x = 1 To 6
Application.SendKeys ("{TAB}")
Next x
Application.SendKeys ("~")
For x = 1 To 2
Application.SendKeys ("{LEFT}")
Next x
For x = 1 To 3
Application.SendKeys ("{TAB}")
Next x
Application.SendKeys ("~")
For x = 1 To 21
Application.SendKeys ("{DOWN}")
Next x
Application.SendKeys ("{RIGHT}")
For x = 1 To 3
Application.SendKeys ("{DOWN}")
Next x
For x = 1 To 2
Application.SendKeys ("{UP}")
Next x
Application.SendKeys ("~")
Application.SendKeys ("{LEFT}")
Application.SendKeys ("{TAB}")
Application.SendKeys ("~")
Application.SendKeys ("{TAB}")
Application.SendKeys ("~")
For x = 1 To 11
Application.SendKeys ("{TAB}")
Next x
Application.SendKeys ("~")
mycontrol.Controls("Print Draft").State = msoButtonUp
End If


WindowUpdating (True) 'to unfreeze the screen


End Sub
--------------------
Sub WindowUpdating(Enabled As Boolean)


'Completely Locks the Whole Application Screen Area, including dialogs
and the mouse.


Dim Res As Long


If Enabled Then
LockWindowUpdate 0 'Unlock screen area
Else
Res = LockWindowUpdate(GetDesktopWin­dow) 'Lock at desktop
level
End If


End Sub
---------------------


The code itself works fine, but I still see the various dialog boxes
popping up based on the SendKeys commands I used.


Am I missing something?


TIA,
Mike.