IMPRIMIR UN ARCHIVO PLANO .TXT

[A&C]

Amigos cual es la forma mas rapida y facil de imprimir un archivo plano un .txt,, desde codigo,, y que dicha impresion se haga en la impresora por defecto del pc de dnd se imprima

recuerdo que en DOS era PRINT LTP1 archivo.txt,,, pero la limitante era que solo se podia en la LPT1,, creo

alguien sabe

GRACIAS

[Antonio Linares]

test.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oPrn, cText := MemoRead( "test.prg" ), n := 0
   local nRowStep, oFont
   
   PRINTER oPrn PREVIEW
   
      DEFINE FONT oFont NAME "Courier New" SIZE 0, -10 OF oPrn
      nRowStep = oPrn:nVertRes() / 40
     
      PAGE
         while n < 40
            oPrn:Say( n * nRowStep, 1, MemoLine( cText,, n + 1 ), oFont )
            n++
         end   
      ENDPAGE
     
   ENDPRINTER
   
   oFont:End()

return nil