Here's the method I use:
Code:
'-- Disable printer functions. Any form needing the printer will enable it.
Dim MyMenu As Object
Set MyMenu = CommandBars("MyMenuName").Controls("File")
'-- Page SetUp
MyMenu.Controls(1).Enabled = False
'PrintSetUp = MyMenu.Controls(1).Visible '-- Save existing state
'MyMenu.Controls(1).Visible = False
'-- Print Preview
MyMenu.Controls(2).Enabled = False
'PrintPreview = MyMenu.Controls(2).Visible '-- Save existing state
'MyMenu.Controls(2).Visible = False
'-- Print...
'Printable = MyMenu.Controls(3).Enabled '-- Save existing state
MyMenu.Controls(3).Enabled = False