Erro em tempo de execução 1004 PrintOut

Question

Boa tarde pessoal estou utilizando uma macro para realizar impressão de alguns relatórios conforme código abaixo:

'Nome da macro no Excel
Sub Imprimir_Teste()
Workbooks.Open ("C:\teste.xls")
'Condição para imprimir
ActiveSheet.PrintOut
'Finaliza ação
End Sub

Até aqui tudo certo, imprime numa boa.

Porem caso eu queira "CANCELAR" a impressão recebo uma mensagem

Erro em tempo de execução 1004

Alguém poderia me ajudar com isso? se eu depurar ele aponta para a instrução:

ActiveSheet.PrintOut

Caso eu click em finalizar ele encerra normalmente, mas a intenção é não aparecer a caixa do VB informando o Erro 1004 e facilitar a vida do usuário

Answer 1

Bom dia, meu amigo!

Acho que uma solução seria mandar o Excel ignorar qualquer erro que venho a acontecer no seu código. Eu coloquei uma cláusula na sua função que vai fazer isso:

'Nome da macro no Excel
Sub Imprimir_Teste()
    
    'Manda ignorar qualquer erro
    On Error Resume Next

    'Condição para imprimir
    ActiveSheet.PrintOut

    'Finaliza ação

End Sub