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

    imprimir 2 vias - Uma em cada impressora

    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  ARGONZALE em 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 100%

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

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

    Mensagem  waraujo em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  ARGONZALE em 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: 1/6/2020, 19:11