Option Explicit



Private Declare Function SendMessage _

    Lib "user32" _

        Alias "SendMessageA" ( _

            ByVal hwnd As Long, _

            ByVal wMsg As Long, _

            ByVal wParam As Long, _

            lParam As Any) _

As Long

'// The SendMessage function sends the specified message to a window or windows.

'// The function calls the window procedure for the specified window and does not

'// return until the window procedure has processed the message.

'// The PostMessage function, in contrast, posts a message to a thread’s message

'// queue and returns immediately.

'//

'// PARAMETERS:

'//

'// -hwnd

'// Identifies the window whose window procedure will receive the message.

'// If this parameter is HWND_BROADCAST, the message is sent to all top-level

'// windows in the system, including disabled or invisible unowned windows,

'// overlapped windows, and pop-up windows; but the message is not sent to child windows.



'// -Msg

'// Specifies the message to be sent.



'// -wParam

'// Specifies additional message-specific information.



'// -lParam

'// Specifies additional message-specific information.



'//////////////////////////////////////////////////////////////////////////

'// The IsWindow function determines whether the specified window handle

'// is Valid.

Private Declare Function IsWindow _

    Lib "user32" ( _

        ByVal hwnd As Long) _

As Long

'// PARAMETERS:

'// -hWnd

'// Specifies the window handle.



'//////////////////////////////////////////////////////////////////////////

'//



'// The InvalidateRect function specifies weather all or part of

'// a rectangle has been updated OR requires updating in a window.

'// The process of notifying a window that an update/refresh is needed

'// is done by this function.

'// hwnd:   handle of Window to Invalidate

'// lpRect: Set to 0 to invalidate Entire Window

'// bErase: TRUE causes specified area to be erased before it is redrawn



Private Declare Function InvalidateRect _

    Lib "user32" ( _

        ByVal hwnd As Long, _

        lpRect As Long, _

        ByVal bErase As Long) _

As Long



Private Declare Function UpdateWindow _

    Lib "user32" ( _

        ByVal hwnd As Long) _

As Long



Private Declare Function GetDesktopWindow _

    Lib "user32" () _

As Long



Public Function PrtScreenUpDate(bShowState As Boolean) As Boolean

Dim Wndhdl As Long



Const WM_SETREDRAW = &HB

Const WM_PAINT = &HF



Wndhdl = GetDesktopWindow



If IsWindow(Wndhdl) = False Then Exit Function



If bShowState Then

    SendMessage Wndhdl, WM_SETREDRAW, 1, 0

    InvalidateRect Wndhdl, 0, True

    UpdateWindow Wndhdl

Else

    SendMessage Wndhdl, WM_SETREDRAW, 0, 0

End If



End Function



'Call it like this.....

'-----------------------------

Sub PrintTestDisableDialog()

    PrtScreenUpDate False

    ActiveWindow.SelectedSheets.PrintOut Copies:=1

    PrtScreenUpDate True

End Sub

'-----------------------------