Code om afdrukken uit te schakelen

[Plurkk]

Hallo,

Geregeld mail ik lijsten in Word of Excel die door gebruikers afgedrukt worden. Ik wil echter dat de gebruiker de lijsten niet afdrukt, maar vanaf het scherm gebruikt.

Is er een code in VBA waarmee ik de afdruk mogelijkheid kan uitschakelen?

Alvast mijn dank voor jullie hulp/tips!

Ronald.

 

[Wigi]

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
     
     Cancel = True
     MsgBox "Je kan niet printen"

End Sub

Deze code komt te staan bij ThisWorkbook.

Wigi