vba Print è consentito solo tramite macro

Ciao,

Questo è il mio codice al modulo:

SubStampaForm()
Application.PrintCommunication = Falso
Con ActiveSheet.PageSetup
.PrintArea = "$A$1:$I$40"
.PrintTitleRows = "$1:$3"
.Zoom = 75
Fine Con
ActiveWindow.SelectedSheets.PrintOut Copie:=1, Fascicola:=True, _
Ignora aree di stampa:=falso
Application.PrintCommunication = Vero
End Sub

Questo è il mio codice nell'oggetto Workbook:
Private Sub Workbook_BeforePrint(Annulla come booleano)
Annulla = Vero
End Sub

Posso sapere come disabilitare il comando Stampa ma consentire la stampa tramite macro, ovvero vorrei aggiungere un controllo che Macro PrintForm può stampare solo tramite macro. Apprezzare qualcuno può aiutare, grazie.