with this I can disable the print function:

Private WithEvents App As Word.Application
Private Sub Document_Open()
Set App = Application
End Sub
Private Sub Document_Close()
Set App = Nothing
End Sub
Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
Cancel = True
End Sub