MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Imprimir - Erro ao cancelar a impressão

    Compartilhe

    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 121
    Registrado : 10/09/2012

    [Resolvido]Imprimir - Erro ao cancelar a impressão

    Mensagem  fabianobilo em Qui 19 Out 2017, 16:12

    Olá pessoal!

    Tenho um botão "imprimir" no rlt com o seguinte código.

    DoCmd.OpenReport "rltImprimirOrcamento", acViewNormal

    Porém, se eu cancelar a impressão me dá o seguinte erro pra depurar

    "Erro em tempo de execução 2212" - Você não pode imprimir o objeto....

    Alguém pode me orientar neste caso?

    Portanto, apenas se eu cancelar a impressão, caso contrato imprimi normalmente

    Att

    Fabiano
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Imprimir - Erro ao cancelar a impressão

    Mensagem  JPaulo em Qui 19 Out 2017, 17:15

    Pode usar duas maneiras diferentes para tratar isso;

    Código:
    On Error Resume Next
    DoCmd.OpenReport "rltImprimirOrcamento", acViewNormal

    Ou faz o tratamento do erro de cancelamento;

    Código:
    On Error GoTo 1
    DoCmd.OpenReport "rltImprimirOrcamento", acViewNormal

    1:
        DoCmd.Hourglass False
        DoCmd.Echo True
        If Err.Number = 2212 Then Err.Number = 0: Exit Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 121
    Registrado : 10/09/2012

    Imprimir - Erro ao cancelar a impressão

    Mensagem  fabianobilo em Qui 19 Out 2017, 19:34

    Olá

    Muito obrigado pelas dicas.

    Funcionou perfeitamente

    Utilizei este: Impressão normal

    Private Sub Comando65_Click()
    On Error Resume Next
    DoCmd.OpenReport "rltImprimirOrcamento", acViewNormal
    MsgBox "Processo executado com sucesso!!!", vbInformation, "Atenção!"  
    Exit Sub
    End Sub

    E impressão PDF:
    Private Sub IMPRIMI_EM_PDF_Click()
    On Error Resume Next
    DoCmd.OutputTo acOutputReport, "rltImprimirOrcamento", acFormatPDF
    MsgBox "Processo executado com sucesso!!!", vbInformation, "Atenção!"

    Exit Sub
    End Sub

    Agradecido

    Att

    Fabiano
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Imprimir - Erro ao cancelar a impressão

    Mensagem  JPaulo em Qui 19 Out 2017, 21:18

    Fico feliz
    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter 21 Nov 2017, 17:37