[ecfisa]

Hola gplata y bienvenido.

Das pocos datos con que trabajar...

No me queda en claro si querés guardar en un archivo de texto algo que después se imprimirá en negrita o si querés imprimir directamente en la impresora.

Antes de seguir, creo conveniente decirte que te convendría usar algún componente que te permita usar texto enriquecido.

Si de todos modos preferís usar texto plano, en el primer caso deberías usar una bandera delante del texto que saldrá en negrita. (algún código que sepas que no vas a usar en la impresión). Luego deberías chequear cada línea a imprimir y si esta dicho carácter, configurar la impresora.

En el segundo sólo deberás configurar la impresora para que imprima ese texto en negrita y luego restaurar a la impresión normal.

Te pongo un ejemplo con los comandos de una reconocida impresora matricial considerada como de facto:

Código Delphi [-]
uses Printers;
...
var
  Prn: TextFile;
begin
  AssignPrn(Prn);
  Write(Prn,#27#120#49); // NLQ
  Writeln(Prn,'RECIBIMOS DE:');
  Write(Prn,#27#120#48); // DRAFT
  ...
end;

Nota: Estas líneas no implican ninguna lógica o funcionalidad, son sólo para ejemplificar como cambiar el atributo de un texto en una impresora determinada.


Por último, estos métodos no son buena práctica, ya que te atan estrechamente al modelo/marca de impresora.

Saludos.