Hiding Dialog Box in Excel from VB

[mattbrown]

I'm having trouble hiding the dialog box that excel displays when printing something.

I can disable every other dialog by setting the displayalerts property to false, but this only affects dialogs that require input from the user.

The dialog i am talking about is the one that says
Now Printing Page # of #
on the Printer Name
And has a cancel button

I am accessing Excel from my VB program and it is not visible but this little box flashes up all the time when I print.

Does anyone have any ideas on how to hide it?

[TheOnly]

Hi mattbrown !!!

As far as I know you can't hide the window. After a researching in "deja" I found out that the only possible solution is that uou can find the window handle and destroy them. But initial the window appears.

Sorry for no better solution.

-cu TheOnly

[mattbrown]

Thats what i had feared

what a bloody pain the customer is complaining about it flashing up all the time

got any ideas on possible workarounds?

[tomjess]

I am using this code, below and it works a treat. My only problem
is that after every thing has finished printing I get the Excel message box asking do I want to save the Excel file, Yes/No.

Have you any idea how to stop Excel asking thais question?,I do not want the user to have to do this everytime they print.

Private Sub cmdClick_Click()

On Error Resume Next
Set objExcel = GetObject(",Excel.Application")
If Err.Number <> 0 Then
Set objExcel = CreateObject("Excel.Application")
End If
Err.Clear
On Error GoTo 0

objExcel.Visible = False
'objExcel.Workbooks.Open filename:="C:\Psp\define.xls"
'objExcel.Visible = True
'objExcel.WindowState = xlNormal
objExcel.Workbooks.Open filename:="C:\Psp\define.xls"
objExcel.Cells(22, 8).Value = txtStan(54).Text
objExcel.Cells(1, 1).Value = txtStan(50).Text
objExcel.Cells(2, 1).Value = txtStan(52).Text
objExcel.Cells(3, 1).Value = txtStan(51).Text
objExcel.Cells(4, 1).Value = txtStan(53).Text
objExcel.Cells(5, 1).Value = txtStan(55).Text
objExcel.Cells(6, 1).Value = txtStan(56).Text
objExcel.Cells(7, 1).Value = txtStan(57).Text
objExcel.Cells(8, 1).Value = txtStan(58).Text

objExcel.ActiveWorkbook.PrintOut
objExcel.Quit

End Sub

Thanks

[DNA7433]

try closing each book individualy and telling it whether or not to save changes

Dim book As Excel.Workbook
 
For Each book In objExcel.Workbooks
    book.Close False 'or true if you want to save changes
Next book