topic-39337

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Imprimir archivo .TXT con Printer.prg
Posted: Fri Sep 04, 2020 04:22 PM

Buenos dias, como hago para imprimir archivos *.TXT con PRINTER.PRG?

Gracias, saludos.

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

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Imprimir archivo .TXT con Printer.prg
Posted: Sat Sep 05, 2020 03:43 AM

Code (fw): Select all Collapse

#include "fivewin.ch"

function Main()

   local cText := MEMOREAD( "c:\fwh\samples\yunus.prg" )
   local oPrn, oFont

   PRINT oPrn PREVIEW
   DEFINE FONT oFont NAME "COURIER NEW" SIZE 0,-10 OF oPrn
   do while !Empty( cText )
   PAGE
      @ 1,1 PRINT TO oPrn TEXT @cText SIZE 7,10 INCHES FONT oFont
   ENDPAGE
   enddo
   ENDPRINT
   RELEASE FONT oFont

return nil

Regards

G. N. Rao.

Hyderabad, India

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Imprimir archivo .TXT con Printer.prg
Posted: Sat Sep 05, 2020 05:51 AM

Perfecto Mister Rao y Aun, puedo generar el PDF del .TXT.

Code (fw): Select all Collapse

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL cText := MEMOREAD( "c:\fwh\samples\yunus.prg" )

   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
                          // Problem:
        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

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Imprimir archivo .TXT con Printer.prg
Posted: Sat Sep 05, 2020 08:30 AM

This generates the pdf silently.

Code (fw): Select all Collapse

#include "fivewin.ch"

function Main()

   local cText := MEMOREAD( "c:\fwh\samples\yunus.prg" )
   local oPrn, oFont

   PRINT oPrn FILE "archivo.pdf"
   DEFINE FONT oFont NAME "COURIER NEW" SIZE 0,-10 OF oPrn
   do while !Empty( cText )
   PAGE
      @ 1,1 PRINT TO oPrn TEXT @cText SIZE 7,10 INCHES FONT oFont
   ENDPAGE
   enddo
   ENDPRINT
   RELEASE FONT oFont

return nil

This generates pdf first and then shows the pdf file in default application.

Code (fw): Select all Collapse

   PRINT oPrn PREVIVEW FILE "archivo.pdf"

Regards

G. N. Rao.

Hyderabad, India

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Imprimir archivo .TXT con Printer.prg
Posted: Sat Sep 05, 2020 01:36 PM

Perfeito... Perfect Mister Nages!!! Many thanks.

Code (fw): Select all Collapse

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL WNOMBREARQPDF

   MsgRun( "GENERANDO ARCCHIVO *.PDF...", ;
           "Por Favor, Aguarde...      ", ;
           { || WinExec( Generar_PDF() ), 3 } )

   // Perfect, mister Nages, Thank You
   IF FILE( "ARCHIVO.PDF" )

      WNOMBREARQPDF := "c:\fwh\samples\archivo.pdf"

      ShellExecute( 0, "Print", WNOMBREARQPDF,,, 3 )

   ENDIF

RETURN NIL

FUNCTION Generar_PDF()

   LOCAL cText := MEMOREAD( "c:\fwh\samples\arq.txt" )
   LOCAL oPrn, oFont

   PRINT oPrn FILE "archivo.pdf"

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

      WHILE .NOT. EMPTY( cText )

         SYSREFRESH()

         CURSORWAIT()

         PAGE

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

         ENDPAGE

      ENDDO

   ENDPRINT

   RELEASE FONT oFont

   CURSORARROW()

RETURN NIL

Regards, saludos.

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

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Imprimir archivo .TXT con Printer.prg
Posted: Sun Sep 06, 2020 05:31 PM

nageswaragunupudi wrote:This generates the pdf silently.

Code (fw): Select all Collapse

#include "fivewin.ch"

function Main()

   local cText := MEMOREAD( "c:\fwh\samples\yunus.prg" )
   local oPrn, oFont

   PRINT oPrn FILE "archivo.pdf"
   DEFINE FONT oFont NAME "COURIER NEW" SIZE 0,-10 OF oPrn
   do while !Empty( cText )
   PAGE
      @ 1,1 PRINT TO oPrn TEXT @cText SIZE 7,10 INCHES FONT oFont
   ENDPAGE
   enddo
   ENDPRINT
   RELEASE FONT oFont

return nil

This generates pdf first and then shows the pdf file in default application.

Code (fw): Select all Collapse

   PRINT oPrn PREVIVEW FILE "archivo.pdf"

Sr. Rao.
A partir de cual versión funciona esto?
Gracias.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Imprimir archivo .TXT con Printer.prg
Posted: Mon Sep 07, 2020 03:28 AM

FWH1304

Regards

G. N. Rao.

Hyderabad, India

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Imprimir archivo .TXT con Printer.prg
Posted: Mon Sep 07, 2020 05:07 PM

nageswaragunupudi wrote:FWH1304

Muchas gracias.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion