Page 1 of 1

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

PostPosted: Mon Nov 07, 2022 10:00 am
by 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

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

PostPosted: Mon Nov 07, 2022 1:04 pm
by karinha
Buén dia. Use TDOSPRN.PRG

Regards, saludos.

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

PostPosted: Mon Nov 07, 2022 1:45 pm
by 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.

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

PostPosted: Mon Nov 07, 2022 1:51 pm
by karinha

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

PostPosted: Tue Nov 08, 2022 8:14 am
by 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