Buscando ESCAPE para aumentar el tamaño de letra

[agag4]

No encuentro el código escape para la impresora matricial fx-890, es para aumentar el tamaño de letra, tengo una aplicación que imprime facturas en impresoras matriciales, primero armo un archivo de texto del formato, quiero aumentarle el tamaño de letra a 2 datos, pero no encuentro los códigos de ESCAPE para esa impresora, alguien sabe como aumentarle a un tamaño 12 ó 14 ?? gracias....

[Sergio]

Aqui tienes todos los códigos: http://lprng.sourceforge.net/DISTRIB/RESOURCES/PPD/epson.htm

Esta fue mi fuente: http://en.wikipedia.org/wiki/ESC/P

[agag4]

Tengo una gran duda, por ejemplo, quiero agrandar solo 2 datos (Serie y Folio) de 1 línea de un archivo de texto que contiene los datos de una factura, por ejemplo asi quedaría el ESCAPE:

Código DELPHI

1.  
2.   Fecha: 18-Feb-2012                                 Folio: [ESC M ] FE-022884
3.   **** CLIENTE ****
4.   00044  GRUPO MEZTA S.A. DE C.V.
5.   PEDRO MORENO No. 2244 Col. Centro
6.   LOS MOCHIS, AHOME, SINALOA, MEXICO C.P.81200
7.  

Si alcanzan a ver puse entre corchete el ESCAPE a usar para agrandar la letra, pero la duda que tengo con que ESCAPE se cierra ?? para que no continue con el escape y no altere lo demás.

Gracias....

[Sergio]

Los codigos de escape no son como html, no se "cierran", cuando cambias algo, cambiado se queda, y solo volviendolo a cambiar consigues algo.

Si antes del Esc+M (letra tamaño 12) usabas letra de 10, entonces has de forzar de nuevo su uso con Esc+P, pero te recomiendo que SIEMPRE empieces la impresion fijando TU la letra, no te fies, si la ultima impresion quedo incompleta, empezaras con el Esc+M activo.

Yo solia "resetear" la impresora y fijar mi letra, y luego, sabiendo como estaba todo, empezaba a imprimir... que tiempos!

[agag4]

Gracias, ya lo solucione con este escape, lo pongo por si alguien le pueda servir.

Código DELPHI

1. procedure LeerArchivoTxt;
2. var
3.   Lista : TStringList;
4.   x:Integer;
5.  
6. begin
7.  
8. ....
9.  
10.   Lista.Strings[x] := #27+'G'+#27+'4'+Char(14)+'Folio:'+TablaSerie.Value+TablaFolio.Value+#20+#27+'5'+#27+'H';
11.  
12. ....
13.  
14. end;
15.  

Saludos....