Abfrage beim Druck eines Word Dokuments - mit oder ohne bestimmte Inhalte drucken

Public WithEvents app As Application

Sub ShowBackgroundImage(state As Boolean)
    Dim shp As Shape
    With ActiveDocument
        For Each shp In .Sections(1).Headers(wdHeaderFooterPrimary).Shapes
            If shp.Title = "myimage" Then  
                shp.Visible = state
                exit for
            End If
        Next
    End With
End Sub

Private Sub app_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
    If MsgBox("Soll das Hintergrundbild für den Druck ausgeblendet werden?", vbYesNo Or vbQuestion, "Variante wählen") = vbYes Then  
        ShowBackgroundImage False
    Else
        ShowBackgroundImage True
    End If
End Sub

Private Sub Document_Open()
    Set app = Application
End Sub