Send email when Print is attempted

[robzrob]

I've just used these...

Sub FilePrint()
MsgBox ThisDocument.Name, vbCritical, "Printing this document is not
allowed"
End Sub

Sub FilePrintDefault()
MsgBox ThisDocument.Name, vbCritical, "Printing this document is not
allowed"
End Sub

.... to warn people not to print a particular doc. I know they can be
easily avoided, but I'm not worried about that, I just want people to
see the warning. Could they be extended to send, automatically, an
Outlook email to (e-mail address removed) when a Print is attempted?

 

[robzrob]

I've just used these...

Sub FilePrint()
MsgBox ThisDocument.Name, vbCritical, "Printing this document is not
allowed"
End Sub

Sub FilePrintDefault()
MsgBox ThisDocument.Name, vbCritical, "Printing this document is not
allowed"
End Sub

... to warn people not to print a particular doc.  I know they can be
easily avoided, but I'm not worried about that, I just want people to
see the warning.  Could they be extended to send, automatically, an
Outlook email to (e-mail address removed) when a Print is attempted?

....and then to delete that email from the sender's (print-attempter's)
Sent box?