Propriedade Options.WarnBeforeSavingPrintingSendingMarkup (Word)
True para o Microsoft Word exibir um aviso ao salvar, imprimir ou enviar como email um documento contendo comentários ou alterações rastreadas. Boolean de leitura/gravação.
Sintaxe
expression. WarnBeforeSavingPrintingSendingMarkup
Expressão Uma expressão que retorna um objeto 'Options'.
Exemplo
Este exemplo imprime o documento ativo, mas permite ao usuário parar a impressão se o documento tiver comentários ou alterações controladas.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.