Impression TextFile e Fuentes em negro

[Paulao]

Hay como poner um titulo en negro(negrito) en una impression TextFile? Yo hago mis impressiones directo para la LPT1, o sea, abro mi variable TextFile directo en LPT1, sin usar los drivers de la "impressora". Yo se que se yo usar el objeto TPrinter de la unit Printers yo consigo, pero sin el es posible?

Como se escribe Printers en Español? En portugues es Impressora, pero no conozco en español.

Negro(negrito) es lo mismo que Bold, pero no se en español.

[cloayza]

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

[Paulao]

Gracias amigo, esto resolveu mi problema. Hasta luego!!!