FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Impresora de Punto Puerto Serial
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Impresora de Punto Puerto Serial
Posted: Tue Apr 07, 2020 05:08 PM

Saludos
Necesito salida por impresora serial
Recuerdo clipper SET PRINTO TO COM1:
Agradecido por su aporte
Juan Navas

Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Impresora de Punto Puerto Serial
Posted: Tue Apr 07, 2020 05:53 PM
Juan

Para: oPrn:=TDosPrn():New( cFilePRN )
Instalar la impresora y compartirla

En el programa usar:

Code (fw): Select all Collapse
   PrintFileRaw( "\\PC\IMPCOMPARTIDA", cFilePRN )
Saludos,



Adhemar C.
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Re: Impresora de Punto Puerto Serial
Posted: Fri Apr 10, 2020 01:31 PM

Adhemar C
Saludos y Gracias
Puedes publicar codigo mas detallado.

PrintFileRaw( "\PC\IMPCOMPARTIDA", cFilePRN )

quien es "\PC\IMPCOMPARTIDA"?

o Sera COM1:

Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Impresora de Punto Puerto Serial
Posted: Fri Apr 10, 2020 01:52 PM
Juan

Una vez instalada la impresora en la computadora tiene que compartirla

Code (fw): Select all Collapse
 oPrn:=TDosPrn():New( "C:\LISTADO.TXT" )
     PrnSetSize(800,1400) 
     oprn:command("27","64" )  
       
       oprn:Say(1,1,PADC(CHR(27)+"E1"+"Impresión por puerto COM1"+CHR(27)+"E0",49) )
     
       oPrn:Say(3,0,CHR(27)+CHR(105) ) //corte
     oPrn:End()
      PrintFileRaw( "\\NombrePC\NombreImpCompartida", "C:\LISTADO.TX" )
Saludos,



Adhemar C.
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Re: Impresora de Punto Puerto Serial
Posted: Sat Apr 11, 2020 04:29 AM

aCuellar
Saludos y Gracias.
Probaré.

Continue the discussion