MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Abrir Gaveta Bematech Automática

    Compartilhe

    msantolli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 02/07/2012

    Abrir Gaveta Bematech Automática

    Mensagem  msantolli em Qui 17 Mar 2016, 02:02

    Pessoal, já pesquisei aqui no fórum e também na net mas não encontrei nenhuma solução em vba, por isso resolvi postar aqui a minha dúvida. Estou precisando de um código que abra a gaveta automática da Bematech através de um botão, ela esta conectada na minha impressora MP-4200 TH.

    Se alguém puder me ajudar, agradeço muito!!

    Obrigado!!

    MarcosXP
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 18/05/2011

    Abrir Gaveta Bematech Automática

    Mensagem  MarcosXP em Sab 18 Jun 2016, 00:26

    Eu também tenho a mesma duvida. Alguém por favor pode nos ajudar?

    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 629
    Registrado : 07/05/2010

    Re: Abrir Gaveta Bematech Automática

    Mensagem  Jungli em Sab 18 Jun 2016, 01:39


    boa,

    Podes tentar esta função



    Public Function Abrir_Gaveta()
    'encontrada na internet
    'proprietário desconhecido

    On Error Resume Next

    LPT = FreeFile
    Open Funcao.Configurar("Imprime", "Porta") For Output As #LPT

    If MODELOIMPRESSORA = "BEMATECH" Then
    Print #LPT, Chr$(27) + Chr$(118) + "2"
    Print #LPT, Chr$(27) + Chr$(118) + Chr$(140)
    ElseIf MODELOIMPRESSORA = "DARUMA" Then
    Print #LPT, Chr$(27) + Chr$(112)
    ElseIf MODELOIMPRESSORA = "EPSON" Then
    Print #LPT, Chr$(27) + Chr$(112) + Chr$(0) + Chr$(48) + Chr$(0) + Chr$(255)
    ElseIf MODELOIMPRESSORA = "ELGIN" Then
    Print #LPT, Chr$(27) + Chr$(118) + "n"
    Print #LPT, Chr$(27) + Chr$(118) + Chr$(110)
    Else
    Print #LPT, Chr$(27) + Chr$(118) + "2"
    Print #LPT, Chr$(27) + Chr$(118) + Chr$(140)
    Print #LPT, Chr$(27) + Chr$(112)
    Print #LPT, Chr$(27) + Chr$(112) + Chr$(0) + Chr$(48) + Chr$(0) + Chr$(255)
    End If
    Close #LPT

    End Function


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Abrir Gaveta Bematech Automática

    Mensagem  Avelino Sampaio em Sab 18 Jun 2016, 09:53

    Olá!

    Essa é uma impressora usb, certo ?! Deve compartilhar a impressora em rede para ter acesso fácil pela instrução OPEN. Veja nessa minha dica 52

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

    Neste vídeo, que é de uma impressora epson, vc também verá o detalhe de configurar em rede e como é relativamente simples abrir a gaveta individualmente ou após a impressão.



    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    MarcosXP
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 18/05/2011

    Abrir Gaveta Bematech Automática

    Mensagem  MarcosXP em Seg 20 Jun 2016, 00:01

    Obrigado pela ajuda!
    Imprimir e abrir ta resolvido pela própria configuração da impressora.
    Entendi o vídeo, porem é programação em delphi.
    Eu gostaria de um botão para somente abrir a gaveta
    E quando a gaveta estiver aberta exibir uma mensagem assim: Aguardando fechamento da gaveta...
    e bloquear qualquer evento até a gaveta ser fechada novamente.
    Nó...! ia fica doido!!!

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Abrir Gaveta Bematech Automática

    Mensagem  Avelino Sampaio em Seg 20 Jun 2016, 14:00

    Marcos,

    o amigo Glicério(jungli) já deu a dica acima. Utilize a instrução OPEN para acionar a sequencias dos CHR()

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

      Data/hora atual: Dom 04 Dez 2016, 12:16