Ver Mensaje Individual
  #2  
Antiguo 18-03-2008
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 915
Reputación: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Es posible, lo que requieres es saber cuales son los set de escape a usar para darle las caracteristicas, estos set de escape dependen de las impresoras.

Por ejemo: En para impresoras matriciales impresoras.

Código Delphi [-]
var
   afile:TTexFile;
   sLinea:String;
begin
      AssignFile(afile, 'lpt1');
      Reset(sfile);
      //--Algunos set de escape para matriciales
      //#27#64   =>Resetear la impresora
      //#27+#15 =>Modo comprimido en matriciales
      //#27#71   =>Activar Bold (Negritas)
      //#27#72   =>Apagar Bold (Negritas)
      //#27+#18 =>Modo normal
      //#12        =>Salto de pagina
      
      slinea:=#27+#15+'Este es un texto comprimido'+#27+#18;
      
      write(file,slinea);
      
      linea:=#27#71+'Este texto esta en negritas'+#27+#72;
     
      write(file,linea);
      write(file,#12); //Salto de pagina
      close(file);
end;

Para las otras impresoras debes tener sus set de escape, los cuales estan en sus manuales.

Saludos
Responder Con Cita