MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Erro na hora de imprimir

    avatar
    _Teddy_
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 23/03/2015

    Erro na hora de imprimir Empty Erro na hora de imprimir

    Mensagem  _Teddy_ 4/9/2015, 13:19

    Ola colegas,

    estou usando esse código aqui para imprimir os relatórios mais esta dando esse erro
     
    Código:
    DoCmd.OpenReport "rlt_Venda_Custo", acViewPreview
    DoCmd.PrintOut acPrintAll, , , acHigh



    ERRO:

    Erro na hora de imprimir 21xv2a


    O que seria caros colegas
    Caio
    Caio
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Erro na hora de imprimir Empty Re: Erro na hora de imprimir

    Mensagem  Caio 4/9/2015, 15:05

    Use o seguinte código no evento "Ao clicar" do seu botão:

    Código:
    If MsgBox("Confirma a impressão?", vbYesNo, "Atenção") = vbYes Then
    DoCmd.OpenReport "SeuRelatorio", acViewNormal, , , acHidden

    If err = 2501 Then 'usando
    err.Clear
    End If
    DoCmd.Close acReport, "SeuRelatorio"
    End If

      Data/hora atual: 11/4/2021, 14:10