mcouce
20 de Abril del 2004

Tengo una aplicaci贸n y he conseguido el c贸digo para que me abra el caj贸n portamonedas, conectado a trav茅s de una impresora de tickets, pero lo que no consigo es imprimir en la impresora de tickets, pues lo 煤nico que saca son caracteres raros. La impresora es una Samsung SRP-350G y est谩 conectada por el COM1, tiene emulaci贸n de EPSON, 9600 bps, 8 bits datos y 1 bit parada, handshaking DTR/DSR. Si alg铆en me puede ayudar lo agradecer铆a, y si alguien necesita el c贸digo para abrir el portamonedas se lo paso encantado. Saludos y gracias por anticipado.

mcouce
20 de Abril del 2004

Me ha pedido bastante gente el c贸digo para abrir el portamonedas. Bien hay que conectar el portamonedas al puerto de la impresora y luego esta al ordenador. Yo la ten铆a en el COM1 y solamente es necesario crear un bot贸n que ejecute el siguiente c贸digo.
*********************************
Dim nFicSalCajon As Integer
Dim Puerto As String
Puerto = "COM1"
nFicSalCajon = FreeFile
Open Puerto For Output As #nFicSalCajon
Print #nFicSalCajon, Chr$(27); "p"; Chr$(0); Chr$(25); Chr$(250)
Close nFicSalCajon
******************************
Espero que os sirva, si alguien tiene c贸digo para imprimir en la impresora, leer un c贸digo de barras etc, por favor que lo env铆e.Gracias