Imprimir línea por línea en impresora de tickets

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Imprimir línea por línea en impresora de tickets

Posted: Mon Nov 07, 2022 10:00 AM

Buenos días:

Esta es mi pregunta necesito imprimir línea por línea en una impresora de tickets, es decir el programa en un momento dado ante algún evento imprime una línea identificando el evento, y por ejemplo tras unos minutos se produce otro evento y lo imprime como nueva línea en la impresora, de forma que cualquiera puede ver en la tira de la impresora los eventos que se van recogiendo. ¿es posible hacerlo ? ¿Qué clase sería la recomendada? Lo he intentado con TPRINTER pero no acabo de ver la manera.

Muchas gracias.

Un saludo

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Imprimir línea por línea en impresora de tickets

Posted: Mon Nov 07, 2022 01:04 PM

Buén dia. Use TDOSPRN.PRG

Regards, saludos.

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

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Imprimir línea por línea en impresora de tickets

Posted: Mon Nov 07, 2022 01:45 PM

Se és un .TXT

Code (fw): Select all Collapse

#Include "FiveWin.ch"

FUNCTION Main()

   // LOCAL cText := MEMOREAD( "c:\fwh1905\samples\yunus.prg" )
   LOCAL cText := MEMOREAD( "c:\fwh1905\samples\ARCHIVO.TXT" )

   LOCAL oPrn, oFont

   PRINT oPrn PREVIEW

      DEFINE FONT oFont NAME "COURIER NEW" SIZE 0, -10 OF oPrn

      WHILE .NOT. EMPTY( cText )

         SYSREFRESH()

         PAGE

            @ 1, 1 PRINT TO oPrn TEXT @cText SIZE 7, 10 INCHES FONT oFont

         ENDPAGE

      ENDDO

      IF lPdfImp

        oPrn:lMeta = .F.  // .T. -> Defecto  - .F. Genera el PDF.

      ENDIF

   ENDPRINT

   IF lPdfImp

      FWSavePreviewToPDF( oPrn, "ARCHIVO.pdf", .F. )

   ENDIF

   RELEASE FONT oFont

RETURN NIL

REgards, saludos.

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

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Imprimir línea por línea en impresora de tickets

Posted: Mon Nov 07, 2022 01:51 PM

Otro ejemplo usando PRINTER.PRG

http://fivewin.com.br/index.php?/topic/27095-impress%C3%A3o-cont%C3%ADnua-com-printer/

Regards, saludos.

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

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: Imprimir línea por línea en impresora de tickets

Posted: Tue Nov 08, 2022 08:14 AM

Muchas gracias João. El uso de page y endpage me permite que le impresora imprima linea a linea sin esperar al resto de lo que se vaya a imprimir.

Un saludo

FiveTech Support Forums