Este fórum está sendo desativado

[Carvalho10597]

Boa tarde,
Solicito ajuda quanto a necessidade de mostrar uma mensagem após a impressão de uma planilha. Tentei colocar na Workbook_AfterPrint, porém não mostra nada. Preciso que a mensagem seja após a impressão da planilha.

Aguardo ajuda,

obrigado a todos.

Att.
Carvalho10597

[osvaldomp]

Cole uma cópia no módulo de EstaPastaDeTrabalho.

Código: Selecionar todos

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 MsgBox "o evento Workbook_AfterPrint não existe no Excel/VBA"
End Sub

[mucascosta]

Ou num módulo

Código: Selecionar todos

Sub PrintWS()
    Application.EnableEvents = False
    ActiveSheet.PrintOut
    Application.EnableEvents = True
    MsgBox "o evento Workbook_AfterPrint não existe no Excel/VBA"
End Sub

[Carvalho10597]

Obrigado a todos! Valeu pela dica.

Att.
Carvalho10597