As a different approach to the problem have you considered using the before
print event in this workbook. Something like this will disable the ability to
print in this workbook without affecting the entire application and other
open spreadsheets... there is also no need for strong error handling to
reseth the buttons in case the spreadsheet crashes...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "Sorry. Printing of this spreadhseet is " & _
"not allowed", vbInformation, "Printing Cancelled"
End Sub
--
HTH...

Jim Thomlinson


"Harish" wrote:

I am trying to disable and hide the "Print" option from "File Menu".Also I
want to disable "CTRL + P" and Print icon from standard tool bar.

I have written the code as follow but it's not working.It's coming with an
error that" Invalid procedure call or argument."

Sub Macro1()

Sheets("Sheet1").Select
Application.CommandBars.Item("File").Controls.Item ("Print").Enabled = False
Application.CommandBars.Item("File").Controls.Item ("Print").Visible = False

End Sub


Thanks in advance.

Harish