bloquer l’impression d’un fichier word 2010

Dans ThisDocument

Dim GestionEvenement As ClasseEvenements

Private Sub Document_Open()
   Set GestionEvenement = New ClasseEvenements
   Set GestionEvenement.App = Word.Application
End Sub

Private Sub Document_Close()
   Set GestionEvenement = Nothing
End Sub

Dans un module de classe nommé ClasseEvenements

Public WithEvents App As Word.Application
 
Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
   MsgBox « Pas d’impression »
   Cancel = True
End Sub

FERMER LE DOCUMENT puis ré-ouvrer le.