Print using Add-in Only (Excel 2010, VBA)

If you never want to allow normal printing from that workbook then just use:

Public Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    MsgBox "You can't print this workbook"
End Sub

I don't see the need for the global variable PrntOK.