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


4 participantes

    Abrir Gaveta Bematech Automática

    avatar
    msantolli
    Novato
    Novato


    Respeito às regras : 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 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 : 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 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 : Respeito às Regras 100%

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

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

    Mensagem  Jungli 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 : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 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


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    MarcosXP
    Novato
    Novato


    Respeito às regras : 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 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 : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 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


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/3/2024, 11:50