none
Erro em tempo de execução 1004 PrintOut RRS feed

  • Pergunta

  • 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

    quarta-feira, 27 de maio de 2020 18:47

Todas as Respostas

  • 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

    quinta-feira, 28 de maio de 2020 12:56