imprimir en negrita

[gplata]

Hola a todos los forisrtas,

Tengo lo siguiente:
WriteLn(Archivo,'RECIBIMOS DE:');

como hago para que este texto se imprima en "negrita", de antemano gracias por su ayuda.

[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.

[gplata]

Gracias, ya veo que debo de programar según la impresora, es una impresora de etiquetas, marca zebra de la cual ya conseguí el manual, y algunas partes del texto se requieren en negrita, gracias por el aporte, saludos.