Como usar los escapes de una impresora por código

[marcoszorrilla]

Var
cBold:String;
cBoldOff:String;
begin
cBold:=CHR(27)+CHR(71)
cBoldOff:=CHR(27)+CHR(72)

Write(cBold+' Esto va en negrita'+cBoldOff);
end;

En tu caso quedaría para color rojo:
Esc=1BH = 27d
r =72H=114d

En tu caso quedaría para color negro:
Esc=1BH = 27d
n =6EH=110d

cRojo:=Chr(27)+Chr(114).
cNegro:=Chr(27)+Chr(110).

Un Saludo.