Funcion para impression textos

[Paulao]

Alguien tiene una funcion para alinear numeros a la derecha y textos a la izquierda en una impression TextFile sin generador de relatorios, o sea, directo para la puerta de impression? Gracias a todos.

[[BlueSteel]]

Empezado por Paulao

Alguien tiene una funcion para alinear numeros a la derecha y textos a la izquierda en una impression TextFile sin generador de relatorios, o sea, directo para la puerta de impression? Gracias a todos.

Hola Paulao...

yo he utilizado una funcion para alinear a la Izquierda y Derecha pero no se si te sirva para la impresion

se llama PadString

Aqui esta la función

Código Delphi [-]
Function PadString(cVar :String; Caracter :Char; nLen:Integer; Orientacion :TOrientacion):String;
begin
  if Orientacion = toLeft then
    Result:=StringOfChar(Caracter, nLen - Length(cVar))+cVar
  else
    Result:=cVar+StringOfChar(Caracter, nLen - Length(cVar));
end;

tienes que declarar esto

Código Delphi [-]
Type
    TOrientacion = (toLeft, toRight);

y asi se deberia utilizar

Código Delphi [-]
Dato1.Caption := PadString(Dato,' ',15,toRight); // un dato de un largo de 15 y alineado 
Dato2.Caption := PadString(' ',' ',10,toRight); // debo dejar 10 espacios en blanco
Dato3.Caption := PadString(Datos.AQ_Select['Per_NCta'],' ',15,toLeft); // un dato de un largo de 15 y alineado

espero que te sirva..

Salu2