Page 1 of 1
Imprimir archivo .TXT con Printer.prg
Posted: Fri Sep 04, 2020 4:22 pm
by karinha
Buenos dias, como hago para imprimir archivos *.TXT con PRINTER.PRG?
Gracias, saludos.
Re: Imprimir archivo .TXT con Printer.prg
Posted: Sat Sep 05, 2020 3:43 am
by nageswaragunupudi
Code: Select all
#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
Re: Imprimir archivo .TXT con Printer.prg
Posted: Sat Sep 05, 2020 5:51 am
by karinha
Perfecto Mister Rao y Aun, puedo generar el PDF del .TXT.
Code: Select all
#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.
Re: Imprimir archivo .TXT con Printer.prg
Posted: Sat Sep 05, 2020 8:30 am
by nageswaragunupudi
This generates the pdf silently.
Code: Select all
#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: Select all
PRINT oPrn PREVIVEW FILE "archivo.pdf"
Re: Imprimir archivo .TXT con Printer.prg
Posted: Sat Sep 05, 2020 1:36 pm
by karinha
Perfeito... Perfect Mister Nages!!! Many thanks.
Code: Select all
#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.
Re: Imprimir archivo .TXT con Printer.prg
Posted: Sun Sep 06, 2020 5:31 pm
by FranciscoA
nageswaragunupudi wrote:This generates the pdf silently.
Code: Select all
#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: Select all
PRINT oPrn PREVIVEW FILE "archivo.pdf"
Sr. Rao.
A partir de cual versión funciona esto?
Gracias.
Re: Imprimir archivo .TXT con Printer.prg
Posted: Mon Sep 07, 2020 3:28 am
by nageswaragunupudi
FWH1304
Re: Imprimir archivo .TXT con Printer.prg
Posted: Mon Sep 07, 2020 5:07 pm
by FranciscoA
nageswaragunupudi wrote:FWH1304
Muchas gracias.