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

    avatar
    msantolli
    Novato
    Novato

    Respeito às Regras 100%

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

    Abrir Gaveta Bematech Automática Empty Abrir Gaveta Bematech Automática

    Mensagem  msantolli em 17/3/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!!
    avatar
    MarcosXP
    Novato
    Novato

    Respeito às Regras 100%

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

    Abrir Gaveta Bematech Automática Empty Abrir Gaveta Bematech Automática

    Mensagem  MarcosXP em 18/6/2016, 00:26

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

    Respeito às Regras 100%

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

    Abrir Gaveta Bematech Automática Empty Re: Abrir Gaveta Bematech Automática

    Mensagem  Jungli em 18/6/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
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

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

    Abrir Gaveta Bematech Automática Empty Re: Abrir Gaveta Bematech Automática

    Mensagem  Avelino Sampaio em 18/6/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

    http://www.usandoaccess.com.br/Dicas/dicas-praticas-de-access-parte-6.asp?id=1&idlista=215

    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
    avatar
    MarcosXP
    Novato
    Novato

    Respeito às Regras 100%

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

    Abrir Gaveta Bematech Automática Empty Abrir Gaveta Bematech Automática

    Mensagem  MarcosXP em 20/6/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
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

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

    Abrir Gaveta Bematech Automática Empty Re: Abrir Gaveta Bematech Automática

    Mensagem  Avelino Sampaio em 20/6/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

    Conteúdo patrocinado

    Abrir Gaveta Bematech Automática Empty Re: Abrir Gaveta Bematech Automática

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/8/2019, 20:54