Abrir Cajón de dinero. - VB-MUNDO

Campos_S · #1 (**permalink**) 09-02-2006, 00:49:48

QUE TAL AMIGOS, COMO LE VA???¡ :

Aquí molestando con una duda, tengo una Miniprinter Epson TM-U220PD conectado a un cajón de dinero, bueno ya tengo el código para imprimir, pero quiero que al empezar a imprimir me abra el cajón de dinero conectado a la Miniprinter, debo agregas más código para esto??? ó se supone que lo debe haceer de manera automática.???

Agradezco de antemano sus comentarios...

Bye

Alella · #2 (**permalink**) 09-02-2006, 15:34:51

Hola, que tal.

Mirando por internet he visto esto.

Espero que te ayude.

Código:

OPEN "LPT1" FOR RANDOM AS #1
PRINT #1, CHR$(&H1B); "p"; CHR$(0); CHR$(100); CHR$(250);
CLOSE #1

También encontré:

Las impresoras nuevas de tickets ya vienen con la opción de apertura automática: open cash drawer1 ... con la selección de esta opción el driver de la impresora (por ejemplo una térmica SAMSUNG SRP350) abre automáticamente el cajon conectada a la impresora a los milisegundos que le especifiques, mucho más fácil que tener que programarlo.

Public Sub AbrirCajon()
On Error GoTo HayError
Dim intFichero As Integer
Dim strCadenaApertura As String
nfile = FreeFile
strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(0)
Open "Lpt1" For Output As #intFichero
Print #intFichero, strCadenaApertura;
Close #intFichero
Exit Sub
HayError:
MsgBox "No puedo abrir el cajón", _
vbInformation, _
" Error en el procedimiento AbrirCajon"
Resume Next
End Sub

Seguiremos mirando...!!

Campos_S · #3 (**permalink**) 09-02-2006, 18:27:07

Gracias amigo Alella :

Sabes el día de ayer coloque esta duda en este foro, y bueno me puse a investigar un ratito y como a eso de las 2:00 a.m. (Hora de México), dí con la solución a este problema, como recompensa me fuí a dormir, pero sabes...?, es la misma solución que tu me das, en serio que agradezco infinitamente tu ayuda.

Bye...