Abrir cajon de dinero con un miniprinter termica

[Willi Quintana]

Amigos buenas noches,,,
Alguno de vosotros tendrá el código para apertura de cajón de dinero con miniprinters térmicas? estoy usando la clase PRINTER
Salu2
Gracias

[karinha]

Qué modelo y marca?

Saludos.

[leandro]

Pues no es con printer, pero con la clase tdosprn se logra el mismo efecto.

Code: Select all

*******************************************
*Abre el Cajon Cuando no se imprime tiquete
*******************************************
FUNCTION pImDSFac2()

cPorta := PrnGetPort()
cPrinter := PrinterPortToName( cPorta )
if empty(cPrinter)
   cPrinter := PrinterPortToName( "USB002" )
   if empty(cPrinter)
      cPrinter := PrinterPortToName( "USB001" )
   endif
endif
IMfac := TDosPrn():New(".\dbfs\lamtem\tempo.txt")
IMfac:StartPage()
   IMfac:say(0,0,chr(027) + chr( 112 ) + chr( 000) + chr(100) + chr( 250 )) //Abre el cajon

   //FWrite(hFile,Chr(27)+Chr(112)+Chr(48)+Chr(55)+Chr(121)) //Abrir cajón sin imprimir un trozo de papel paequeño

IMfac:EndPage()
IMfac:End()
PrintFileRaw( cPrinter, TrueName(".\dbfs\lamtem\tempo.txt"), "Solo Cajon" )