WarnBeforeSavingPrintingSendingMarkup 属性

如果该属性值为 True，则 Microsoft Word 在保存、打印或以电子邮件形式发送包含批注或修订的文档时，显示警告信息。Boolean 类型，可读写。

expression   必需。该表达式返回一个 Options 对象。

示例

本示例打印活动文档，但如果文档包含修订或批注，则允许用户放弃打印。

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