Impresora de Punto Puerto Serial

[jnavas]

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

[acuellar]

Juan

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

En el programa usar:

Code: Select all  Expand view

   PrintFileRaw( "\\PC\IMPCOMPARTIDA", cFilePRN )
 

[jnavas]

Adhemar C
Saludos y Gracias
Puedes publicar codigo mas detallado.

PrintFileRaw( "\\PC\IMPCOMPARTIDA", cFilePRN )

quien es "\\PC\IMPCOMPARTIDA"?

o Sera COM1:

[acuellar]

Juan

Una vez instalada la impresora en la computadora tiene que compartirla

Code: Select all  Expand view

 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" )
   
 

[jnavas]

aCuellar
Saludos y Gracias.
Probaré.