Disabling Print through Print Menu and Quick Print but allow my Macro to print still

[sarahlynnette]

Hi all. Okay so I'm probably what most of you would consider a newbie at VBA and I'm self taught on top of it. But I need some help as I have searched and searched and cannot find a macro that will do what I need. I have a macro that is attached to a button on each tab (they are time sheets) that prints the current worksheet and checks certain cells to speed the verification process up in my office. However, I would like to force people to have to use this button by disabling the print options through the file menu and the quick print. I have tried several different macros and none of them work or they disable my macro print as well.

If it helps, this is my macro that is attached to one of the tabs button.

Sub PrintItJuly()
If Range("G13") > 0 Then
Range("A51") = "INITIAL BY HOLIDAY WORKED TO APPROVE"
End If
If Range("F41") > 0 Then
Range("H51") = "X"
End If
If Range("J11") And Range("J19") > 0 Then
Range("H52") = "X"
End If
If Range("J11") And Range("J27") > 0 Then
Range("H52") = "X"
End If
If Range("J11") And Range("J35") > 0 Then
Range("H52") = "X"
End If
If Range("J19") And Range("J27") > 0 Then
Range("H52") = "X"
End If
If Range("J19") And Range("J35") > 0 Then
Range("H52") = "X"
End If
If Range("J27") And Range("J35") > 0 Then
Range("H52") = "X"
End If
Range("J53") = "=(I2*F40)+((I2*1.5)*F41)"
ActiveSheet.PrintOut
End Sub

I appreciate any assistance that can be offered and I ask for patience in explaining things because as previously mentioned I'm pretty new at this. Thanks again!

 

[Syoodo]

It sounds like you need a macro that automatically disables any printing when the workbook is opened. Then you need a macro which which you manually run that will enable the printing, print and then disable the printing. You obviously know how to disable printing. Do you know how to enable printing?