Abrir cajon dinero

[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

[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.

[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)
 

[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.