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

    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?
    avatar
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 639
    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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3410
    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

    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!!!
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3410
    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

      Data/hora atual: Qui 23 Nov 2017, 15:06