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

    imprimir 2 vias - Uma em cada impressora

    avatar
    ARGONZALE
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 209
    Registrado : 21/05/2015

    imprimir 2 vias - Uma em cada impressora Empty imprimir 2 vias - Uma em cada impressora

    Mensagem  ARGONZALE 30/1/2017, 10:58

    Prezados, bom dia.

    Estou utilizando o código abaixo mas gostaria de melhorá-lo:

    No botão [Imprimir] coloquei 2 vezes o código:
    DoCmd.OpenReport "MeuRelatorio", acNormal, "", "", acNormal
    DoCmd.OpenReport " MeuRelatorio ", acNormal, "", "", acNormal

    Este código imprimi direto na impressora, sem aparecer a janela de impressão.

    Preciso da ajuda de vocês para:

    Imprimir uma via em cada impressora.
    1ª Via entrega ao cliente na recepção enquanto ele aguarda o pedido chegar à mesa;
    2ª Via imprimi direto na cozinha para preparar o alimento;

    Fico no aguardo de uma luz.
    waraujo
    waraujo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 04/02/2010

    imprimir 2 vias - Uma em cada impressora Empty Re: imprimir 2 vias - Uma em cada impressora

    Mensagem  waraujo 6/2/2017, 08:41

    'Em um Modulo Cole a Função !
    Function DialogoImprime() 'Oferece opção de escolha de impressora ao imprimir
    On Error GoTo ImprimirRelat_Erro
    Dim msg As String

    DoCmd.RunCommand acCmdPrint


    Exit_ImprimirRelat_Erro:
    Exit Function


    ImprimirRelat_Erro:
    Select Case Err
    Case 2501
    msg = "A impressão foi Cancelada!!!"
    Case 2046
    msg = "Selecione um objeto antes de imprimir!!!"
    Case Else
    NumErro = Err.Number
    Formulario = "" & Form.Name & ""
    ErrDescricao = Err.Description
    LinhaErro = Str$(Erl)
    MsgBox "Ocorreu o Erro " & vbCrLf _
    & "Formulario: " & Formulario & " " & vbCrLf _
    & "Erro: " & Err.Number & " " & vbCrLf _
    & "" & Err.Description & ", - Informe ao Desenvolvedor, Log Erro Gravado !", vbSystemModal + vbCritical, "Erro no Sistema !"
    Exit Function 'Verificar se o codigo fica dentro do Sub ou de uma Function
    End Select
    MsgBox msg, vbInformation, "Status da Impressão"
    End Function


    Para Chamar a Função

    Call DialogoImprime

    Espero ter ajudado



    .................................................................................
    Que Deus Abençoe à todos aqui presente.
    Não Fique Pobre Fazendo Festa com Dinheiro Emprestado.
    Eclesiástico 18,33
    Wellington Araujo
    avatar
    ARGONZALE
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 209
    Registrado : 21/05/2015

    imprimir 2 vias - Uma em cada impressora Empty Re: imprimir 2 vias - Uma em cada impressora

    Mensagem  ARGONZALE 10/2/2017, 13:32

    Prezado Waraujo,

    Ainda não tive tempo para colocar no meu BD esta função.

    Peço que aguarde que em breve retorno informando se funcionou.

    Já agradeço pela ajuda.

      Data/hora atual: 21/4/2021, 17:20