Abrir cajon de dinero con un miniprinter termica

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Abrir cajon de dinero con un miniprinter termica
Posted: Sat Mar 21, 2020 12:23 AM

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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Abrir cajon de dinero con un miniprinter termica
Posted: Sat Mar 21, 2020 11:58 AM

Qué modelo y marca?

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Abrir cajon de dinero con un miniprinter termica
Posted: Sat Mar 21, 2020 08:19 PM

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

Code (fw): Select all Collapse

*******************************************
*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" )

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums

Continue the discussion