ACIONAMENTO DE GAVETA COM A IMPRESSORA MP-4200 TH

FRAZAO 09/04/2013 01:49:33
#421673
Ola boa noite,estou aqui para que vcs me esclareçam uma coisa.
tenho uma impressora mp-4200 th e uma gaveta bematech,eu uso esta impressora como generica no comptador,eu gostaria de saber como eu fasso para
acionar a gaveta de dinheiro ao fechar uma venda tipo assim e uso o atalho [Ô]g[Ô] para acionar mas não esta dando certo...
alguem ja passou por isso e tem um exemplo pra me passar,lembrando que a impressora é não fiscal...

Por gentileza,me quebra esta ai vai !!!!!..
LOOZE 10/04/2013 16:58:41
#421758
Segue atualização da função para impressora ELGIN VOX


Public Function Abrir_Gaveta()
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
Tópico encerrado , respostas não são mais permitidas
Voltar