You can turn off all of the windows screen updates--but it this code stops,
you'll be rebooting your pc:

Option Explicit
Private Declare Function LockWindowUpdate Lib "USER32" _
(ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "USER32" () As Long
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(GetDesktopWindow)
'Lock at desktop level
End If

End Sub

Sub testme01()
Call WindowUpdating(False)
Worksheets("Sheet1").PrintOut
Call WindowUpdating(True)
End Sub



"TONYC <" wrote:

When printing a document via a macro can the printing message which
appears on screen be turned off.

I am using the following command

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Tony

---
Message posted from http://www.ExcelForum.com/

--

Dave Peterson