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

[groiss]

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]

Buén dia. Use TDOSPRN.PRG

Regards, saludos.

[karinha]

Se és un .TXT

Code: Select all  Expand view

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

[karinha]

Otro ejemplo usando PRINTER.PRG

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

Regards, saludos.

[groiss]

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