Page 1 of 1

Impresora de Punto Puerto Serial

Posted: Tue Apr 07, 2020 5:08 pm
by jnavas
Saludos
Necesito salida por impresora serial
Recuerdo clipper SET PRINTO TO COM1:
Agradecido por su aporte
Juan Navas

Re: Impresora de Punto Puerto Serial

Posted: Tue Apr 07, 2020 5:53 pm
by acuellar
Juan

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

En el programa usar:

Code: Select all

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

Re: Impresora de Punto Puerto Serial

Posted: Fri Apr 10, 2020 1:31 pm
by jnavas
Adhemar C
Saludos y Gracias
Puedes publicar codigo mas detallado.

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

quien es "\\PC\IMPCOMPARTIDA"?

o Sera COM1:

Re: Impresora de Punto Puerto Serial

Posted: Fri Apr 10, 2020 1:52 pm
by acuellar
Juan

Una vez instalada la impresora en la computadora tiene que compartirla

Code: Select all

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

Re: Impresora de Punto Puerto Serial

Posted: Sat Apr 11, 2020 4:29 am
by jnavas
aCuellar
Saludos y Gracias.
Probaré.