Goedemiddag,
Ik zit even met een vraag. Ik heb een document op het werk, waarvan het niet de bedoeling is dat deze straks afgedrukt zal worden.
Nu kwam ik het volgende tegen, maar dit werkt helaas niet als ik het in VBA plak.
Private Sub appWord_DocumentBeforePrint _
(ByVal Doc As Document, _
Cancel As Boolean)
Dim intResponse As Integer
intResponse = MsgBox("Have you checked the " _
& "printer for letterhead?", _
vbYesNo)
If intResponse = vbNo Then Cancel = True
End Sub
Een andere mogelijkheid is dat er een duidelijke watermerk (bijv. tekst in het rood) zichtbaar wordt wanneer je afdrukt.
Ook dit lukte mij niet echt. Hoor graag of iemand mij zou kunne helpen.

Ik zit even met een vraag. Ik heb een document op het werk, waarvan het niet de bedoeling is dat deze straks afgedrukt zal worden.
Nu kwam ik het volgende tegen, maar dit werkt helaas niet als ik het in VBA plak.
Private Sub appWord_DocumentBeforePrint _
(ByVal Doc As Document, _
Cancel As Boolean)
Dim intResponse As Integer
intResponse = MsgBox("Have you checked the " _
& "printer for letterhead?", _
vbYesNo)
If intResponse = vbNo Then Cancel = True
End Sub
Een andere mogelijkheid is dat er een duidelijke watermerk (bijv. tekst in het rood) zichtbaar wordt wanneer je afdrukt.
Ook dit lukte mij niet echt. Hoor graag of iemand mij zou kunne helpen.
