Page 1 of 1
Abrir cajon dinero
Posted: Sat Mar 14, 2015 7:55 pm
by noe aburto
Saludos.
Checando en el foro, me encuentro que para abrir el cajon del dinero con la clase tprinter esta en chino.
si lo hiciera con la tdosprn, haria: oPrn:Comand(n,n,n)
pero con la tprinter, alguna sugerencia de como mandar los codigos de apertura al cajon.
la impresora que uso para los tickets es una EPSON TM-T20II, VIA USB
Re: Abrir cajon dinero
Posted: Sat Mar 14, 2015 10:36 pm
by wmormar
Noe,
Abrir el cajon es de lo mas facil, debes instalar el controlador correspondiente y configurar en preferencias de la impresora abrir el cjon, antes o despues de enviar a imprimir, inclusive se puede colgar un logo o archivo de imagen de la empresa.
Pero debes instalar el controlador de la impresora, sino, nunca podras abrir el cajon.
Re: Abrir cajon dinero
Posted: Tue Mar 17, 2015 2:39 pm
by gabo
Noe
Este es el codigo y me sirve hasta el momento con epson, samusung, oki y star
Saludos
Code: Select all
Chr(27)+Chr(112)+Chr(0)+Chr(60)+Chr(240)
Re: Abrir cajon dinero
Posted: Sat Mar 21, 2015 12:20 pm
by Loren
Noe,
1.- Partiendo de la base que tienes los drivers correctamente instalados, cuando imprimes a través de la clase Tprinter, justo cuando terminas con ENDPRINT la impresora automáticamente corta el papel y abre el cajón, sin necesidad de insertar ningún código especial.
2.- Si necesitas abrir el cajón sin imprimir (por ejemplo asignar una tecla para simplemente abrir el cajón), debes colocar esta función:
Code: Select all
funct abrir_cajon()
LOCAL cPri,hFile,opencajon:='CHR(27)+"p"+CHR(0)+CHR(25)+CHR(250)'
cPri:=PrinterPortToName( "USB001" )
IF !File('opn.esc')
hFile:=FCreate('opn.esc')
FWrite(hFile,&opencajon) //Abrir cajón
FClose(hFile)
ENDIF
PrintFileRaw(cPri,'opn.esc','')
release oPrn
return
Sin más, un saludo.
LORENZO.