Print with macro

[cjsmile2016]

I have a macro that I recieved from a board member that I can't seem to get working right. I should mention I new to VB.

Problem is when I try to hide it using Private Sub I'm not longer able to use the shortkey I assigned it "Ctrl+b". Also how do you create a button for it?

Module
Public booOKToPrint As Boolean

Private Sub PrintMePlease()
booOKToPrint = True
ActiveSheet.PrintOut
End Sub

Workbook
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not booOKToPrint Then
MsgBox "Printing Disabled!", vbCritical, "Print Canceled"
End If
Cancel = Not booOKToPrint
booOKToPrint = False
End Sub

Thank you for your assistance!
Tim

 

[vconfused]

I don't think you'll want to hide the macro. If you set it to Private, then only other subs in the same module will be able to see a Private macro.

See http://techrepublic.com.com/5100-6329-1060039.html for step-by-step instructions for adding the button.

 

[cjsmile2016]

Thank you for your help!

 

[vconfused]

Let us know though, if you have any problems. I provided the link as it has pretty pictures