Ver Mensaje Individual
  #2  
Antiguo 23-12-2010
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 23
defcon1_es Va por buen camino
Hola.

Tienes que contar los caracteres que caben en una línea del papel, y crearte las cadenas de texto que mandas a imprimir con el formato que tu quieres,
es decir, si en cada línea caben 110 caracteres (por ejemplo, ahora no recuerdo cuantos caben en ese formato de papel)
debes enviar una cadena de texto con lo siguiente:

<Nº Caracteres margen izquierdo> + <Nº Caracteres primera etiqueta> + <Nº Caracteres separacion entre etiquetas> + <Nº Caracteres segunda etiqueta>

Código Delphi [-]
var AuxCadena: String;
....
ComPort.Open;
AuxCadena := '  '+TextoEtiqueta1+'                             '+TextoEtiqueta2;
ComPort.WriteStr(AuxCadena);
ComPort.Close;

PD: Al estar usando la impresión directa, no puedes previsualizar lo que mandas a imprimir, pero si puedes guardar en un txt todas las cadenas de texto que mandas a imprimir, y lo abres con el bloc de notas, por ejemplo.
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...

Última edición por defcon1_es fecha: 23-12-2010 a las 18:30:46.
Responder Con Cita