Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como usar los escapes de una impresora por código (https://www.clubdelphi.com/foros/showthread.php?t=4944)

User_Baja_2 03-11-2003 16:38:22

Como usar los escapes de una impresora por código
 
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 06-11-2003 22:24:24

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 10-11-2003 10:24:20

¿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 10-11-2003 15:05:28

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.


La franja horaria es GMT +2. Ahora son las 02:29:50.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi