WarnBeforeSavingPrintingSendingMarkup Property

True for Microsoft Word to display a warning when saving, printing, or sending as e-mail a document containing comments or tracked changes. Read/write Boolean.

expression   Required. An expression that returns a Options object.

Example

This example prints the active document but allows the user to abort if the document contains tracked changes or comments.

Sub SaferPrint
    Dim blnOldState as Boolean

    'Save old state in variable
    blnOldState = Application.Options.WarnBeforeSavingPrintingSendingMarkup

    'Turn on warning
    Application.Options.WarnBeforeSavingPrintingSendingMarkup = True

    'Print document
    ActiveDocument.PrintOut

    'Restore original warning state
    Application.Options.WarnBeforeSavingPrintingSendingMarkup = blnOldState

EndSub