Como usar los escapes de una impresora por código

[User_Baja_2]

Como se añaden escapes de una impresora por código con el delphi 5 para realizar una función determinada de una impresora matricial,
pondré un ejemplo que viene en el manual de una impresora determinada
en la lista de comandos de control:

Código de control: <ESC> r n
Código Hexadecimal: 1B72n
Función: Selecciona el color de la impresión
En este caso concreto es para seleccionar si el color se quiere poner en rojo o negro.

¿Cómo hago referencia a estos datos por código?
¿alguna idea de como hacerlo?

Muchas gracias

[miguelb]

Mira, yo resolvi algo similar (tipos de letras, tamaños y font) para las impresoras de matriz de la siguiente manera.
Guarde dentro de un archivo las cadenas de escape,
en el archivo puse un formato como el siguiente:
NEGRITA=Esc ....
CONDENSADO=Esc...
y asi defini todo los codigos que necesite.
Luego desde el Delphi, levanto esta tabla, las cargo en variables,
y cuando voy a imprimir las uso dentro del stroing que imprimo,
por ejemplo
'Lo que sigue sale en negritas'+VAR-NEGRITA+'esto sale en negrita'

Espero que te sirva y haber sido claro.
sino avisa
suerte
miguel

[User_Baja_2]

¿alguien sabe cómo se introduce por código el escape para modificar el color de la tinta de una impresora de tickets, matricial?

Gracias

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