Visual Basic - Como mandar un codigo a la impresora y me abra la caja de dinero

tengo el manual de la impresora que uso para los tickets pero no se como mandar el codigo a la impresora para que me habra el cajon del dinero. En el manual solo dice asi:
Description
Generate pulse

Syntax
ASCII CASHDRAWER m t1 t2
HEX 1B 70 m t1 t2
Decimal 27 112 m t1 t2


Parameter Description
m Connector pin m = 0,1,48,49;
t1 0 ≦ t1 ≦ 255
t2 0 ≦ t2 ≦ 255.

Pero no le entiendo. Alguien me podria explicar como mandar este codigo a la impresora desde visual basic para abrir el cajon del dinero

Yo haria esto:

printer.print chr$(27)+chr$(112)+"mt1t2"

Mira esto:

http://www.mygnet.net/foros/visualbasic/abrir_caja_registradora.1609/

http://www.lawebdelprogramador.com/foros/Visual_Basic_ADO/832272-abrir_cajon_portamonedas_en_terminal_sever.html

http://social.msdn.microsoft.com/Forums/es-ES/vbes/thread/b2f78970-4bc5-41bc-9ff6-46e8930698a9

http://www.foro.vb-mundo.com/f24/abrir-cajon-portamonedas-de-ejecucion-5477/





[

Bueno mira lo primero ya lo hice y si me imprime solo que imprive los valores en ASCII correspondientes.
De las ligas que me das para ver los ejemplos ya los consulte voy a checar si me funciona alguna y mi pregunta es funciona solo cambiando el nombre del puerto al que corresponde en el mio por que se conecta por USB no por COM1 o LTP1. Muchas gracias por tu respuesta deja vuelvo hacer todo otra vez a ver si me funciona con los tips que me pasaste. Mañana te platico como me fue.

oyes ya hice lo que me sugerias pero la verdad no jolo, si imprime los equivalentes de los numeros en codigo ascii pero no habra el cajon de dinero. Alguna otra solucion por ahy, por ejemplo que se pone donde me dices "mt1t2"?

Cualquier ayuda es buena.........

En mi programa de Terminal Punto Venta utilizo esta es la secuencia para abrir el cajon y cortar el papel con una impresora EPSON TM-T88.

Mi programa esta escrito en CLIPPER, funciona bajo MS-DOS y la impresora esta conectada al puero paralelo.

Pero creo que independientemente del lenguaje, del sistema operativo y del puerto de salida enviando estas dos secuencias a la impresora como enviaria un texto normal deberia abrir el cajon y cortar el papel.


#define K_OPEN_CAJON CHR(29)+CHR(97)+CHR( 1)+CHR(27)+CHR(112)+CHR(48)
#define K_CUT_PAPER CHR(10)+CHR(10)+CHR(10)+CHR(10)+CHR(10)+CHR(10)+CHR(29)+CHR(86)+CHR( 49)+CHR(12)

Te lo envio por si te sirve

Hola.
Esta rutina suele funcionar en la mayoria de matriciales epson-


'abre el cajon
Open "lpt1" For Output As #1
Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(60) + Chr(240);
Close #1

Buenisio, esto funciona a full!!!
muchas gracias

SEGUI EL PROSEDIMIENTO Y FUNCIONO ABRIO EL CAJON.
PERO COMO LE AGOPARA QUE SIGA FUNCIONANDO ES DECIR QUE CONTINUE ABRIENDO EL CAJON CADA VES QUE HAGO UNA VENTA POR QUE NOMAS ABRE UNA SOLA VES Y DES PUES YA NO

Si has copiado bien este codigo:

'abre el cajon
Open "lpt1" For Output As #1
Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(60) + Chr(240);
Close #1

y lo asocias a un evento click de un boton, el cajon se abre una y otra vez sin problemas, (yo lo tengo funcionando por ahi desde 1999).
Ahora lo he probado con una impresora termica USB y he comprobado para mi alegria que ni siquiera hace falta, pues las ordenes de apertura se envian al driver de la impresoray funciona de lujo. Asi puedes olvidarte de las ruidosas matriciales.

al cambiar a una impresora USB térmica, modificaste algo en el código?, por que veo que tienes "lpt1", yo uso vb,net 2010. Gracias

'Abrir cajón monedero
'*************************************************************************
'Configurando la impresora
' Preferencias de impresion
' Document Settings
' Cash Drawer
' Cash Drawer #1 (2Pins) elegir del combo "Open before printing"
' Cash Drawer #2 (5Pins) elegir del combo "Open before printing"
'*************************************************************************

Buenas tardes, tengo una impresora pero la tengo como generic text only , deseo enviar a cortar el papel tienen idea del codigo que puedo impelentar .. intente con lo indicado en estee ejemplo pero no funciono

Chequea con el fabricante de la impresora y de seguro es mandra a imprimir una secuencia de caracteres pero esta debe ser porpia de cada fabricante y modelo de impresora

hola, tengo la necesidad de abrir el cajon sin imprimir, esto lo quiero hacer desde una impresora epson tm-t20ii, es termica y se conecta por usb, pero la verdad no se como hacerle

he leido esto en varios lugares, pero como hago si mi impresora se conecta via usb?

crea un puerto virtual LPT tu lo qeu haces es mandar el comando al puerto y lo imprime

Puedes decir qeu impresora tienes
la vas a mandar a generic text only o vas a hacer impresora normal?

SAludos

hola buenas tardes, muchas gracias por tu respuesta, la impresora que tengo es una epson tm-t20ii, ella se conecta por usb al computador, lo que yo quiero es que me abra el cajon sin necesidad de imprimir, estoy programando con vba en excel

Es que no es que vayas a imprimir

Es la manera como haces qeu el comando viaje desde VBA al Puerto USB en este caso no vas a imprimir algo visible si no un comando en el puerto usb para que se abra

Se entiende ahora?

Andres, muchas gracias por estar pendiente y por la respuesta, lo que pasa es que no entiendo, podrias regalarme por favor un ejemlo de como debería crear la rutina? estaria muy agradecido.

una pregunta donde tienes conectado el cajon?

hola buen dia, lo tengo directamente conectado a la impresora epson tm-t20ii, la cual se conecta a el computador via usb, recuerda que mi proyecto está en excel y visual basic