cajón portamonedas con tprint

[Loren]

Compañeros, buenas tardes:

¿Como abrir el cajón portamonedas a través de la clase tprint?

Yo utilizo:

Code: Select all  Expand view  RUN

    PRINT oPrn NAME "abrir cajon" to cprint2
     page
     endpage
   endprint
 

... así lo abre... pero al impresora antes me imprime una linea en blanco y corta el papel.

Gracias. Un saludo a todos.
Desde Cádiz, España.

[Willi Quintana]

Podrias mostrar el código completo...
Salu2

[Biel EA6DD]

Normalmente una de las propiedades que incorporan las impresoras de tickes, es que al realizar un listado abran el cajón, que es lo que estas haciendo tu ahora, eso conlleva la impresión de un trocito de ticket.

Otra alternativa, es enviar directamente la secuencia de escape para abrir el cajon, sin realizar ningún listado. Para ello necesitas conocer cual es la secuencia de escape.

Te adjunto ejemplo de como lo hago con una impresora de tickets bixolon:

Code: Select all  Expand view  RUN

STATIC FUNCTION AbriRCajon()
   LOCAL cPrinter,hFile
   cPrinter:=WIN_PrinterPortToName( "USB001" )
   IF !File('opn.esc')
      hFile:=FCreate('opn.esc')
      FWrite(hFile,Chr(27)+Chr(112)+Chr(48)+Chr(55)+Chr(121)) //Abrir cajón
      FClose(hFile)
   ENDIF
   WIN_PrintFileRaw(cPrinter,'opn.esc','')
RETURN NIL

[csincuir]

Biel,
Con unas preguntas: ??

Donde se consigue esta función:

Code: Select all  Expand view  RUN

WIN_PrinterPortToName()

Y para que sirve?

Saludos.

Carlos.

[Biel EA6DD]

Son funciones propias de harbour (hbWin.lib)
Win_PrinterPortToName(cPortName) Retrieves the name of the printer connected to a printer port.
Win_PintFileRaw(cPrinterName,cFileName) Prints a file to a Windows printer in RAW mode.

Antes ya existian, pero sin el prefijo WIN_

[leandro]

Gracias Biel, me fue muy útil esa forma de abrir el cajón.

[csincuir]

Gracias Biel, por la información.

Saludos cordiales.

Carlos.

[devtuxtla]

Hola Biel.

Hay un equivalente de estas funciones WIN_PrinterPortToName y WIN_PrintFileRaw para xharbour?

Saludos

[Biel EA6DD]

Me alegra que os sea de utilidad, con referencia a si existen estas funciones para xHarbour, creo que si, pero hace años que no uso xHarbour y no he seguido su evolución, prueba sin el prefijo WIN_
PrinterPortToName()
PrintFileRaw()

[Loren]

Willi, cuando la impresora está en puerto paralelo o en serie yo utilizo el siguiente código haciendo uso de TDOSPRN:

Code: Select all  Expand view  RUN

funct abrir_cajon
   oPrn:=TDosPrn():New(alltrim(configu->puerto))
   oPrn:say(0,0,&(configu->cajon))
   oPrn:End()
return nil

... como verás, los parámetros los guardo en una DBF (configu) y el usuario puede cambiarlos desde la opción de utilidades de la aplicación.

Biel, me funcionó perfecto tu código. Al yo utilizar xHarbour simplemente le quité el prefijo Win_ a algunas funciones y funcionó perfecto. Es lo que quería (que el usuario desde un buttón contenido en un Dialog pudiese abrir el cajón portamonedas sin necesidad de imprimir nada).

Mil gracias.