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 |
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 |
¿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 |
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