Only Print via Macro

Hi,

Im using the following to disable printing:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If PrtOK Then
 Cancel = False
 Else
 MsgBox "Print using Macro button"
 Cancel = True
End If
End Sub

Can I have a macro, that will allow printing?

Thanks in advance.