Impresora de Punto Puerto Serial

Post Reply
User avatar
jnavas
Posts: 399
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela
Contact:

Impresora de Punto Puerto Serial

Post by jnavas »

Saludos
Necesito salida por impresora serial
Recuerdo clipper SET PRINTO TO COM1:
Agradecido por su aporte
Juan Navas
User avatar
acuellar
Posts: 1312
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: Impresora de Punto Puerto Serial

Post by acuellar »

Juan

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

En el programa usar:

Code: Select all

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

Adhemar C.
User avatar
jnavas
Posts: 399
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela
Contact:

Re: Impresora de Punto Puerto Serial

Post by jnavas »

Adhemar C
Saludos y Gracias
Puedes publicar codigo mas detallado.

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

quien es "\\PC\IMPCOMPARTIDA"?

o Sera COM1:
User avatar
acuellar
Posts: 1312
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: Impresora de Punto Puerto Serial

Post 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" )
    
 
Saludos,

Adhemar C.
User avatar
jnavas
Posts: 399
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela
Contact:

Re: Impresora de Punto Puerto Serial

Post by jnavas »

aCuellar
Saludos y Gracias.
Probaré.
Post Reply