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


2 participantes

    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: 21/11/2024, 22:51