本示例在打印活动文档时不带有修订标记。

With ActiveDocument
    .PrintRevisions = False
    .PrintOut
End With