--
Mike @ Contractors

The first macro disables printing via CTRL+P and/or the Printer Icon.
The second macro enables both of the print options
=================
Sub Disable_Print()
Application.OnKey ("^p"), ""
CommandBars("Worksheet Menu
Bar").Controls("File").Controls("Print...").Enable d = False
CommandBars("Standard").Controls(6).Enabled = False
End Sub

Sub Enable_Print()
Application.OnKey ("^p")
CommandBars("Worksheet Menu
Bar").Controls("File").Controls("Print...").Enable d = True
CommandBars("Standard").Controls(6).Enabled = True
End Sub
==============
Micky


"MBozeman" wrote:


--
Mike @ Contractors