SoloCodigo

borrado  

   

borrado   gracias .

borrado

{
  Centrar lineas en la impresora,usando el eje X, cambia los valores
  X1 y X2 para la salida por pantalla, El eje Y no se puede cambiar
  directamente,pero si, indirectamente usando wrilte(lst,#13,#10)
  que provoca un salto de linea y un retorno de carro,  puedes avanzar
  el cabezal  pero NO puedes retroceder el cabezal de impresion al igual
  que en una  pantalla.

  NOTA:si lo que quieres es hacer eso,Retroceder deberas mandar codigos
  de control especificos de cada impresora , mira el manual de tu impresora
  pero ya te digo que no es estandar y cambia con el modelo y marca de estas.
  mira tambien el fichero de impresion PRNFLTR.PAS.
 }

uses crt;
var
lst:text;
p_uno,p_dos:string;
l1,l2:integer;
x1,x2:integer;

begin
    Assign(Lst, 'LPT1');
    Rewrite(Lst);

p_uno:='Mes';                   { primera frase }
p_dos:='Total en Euros';        { segunda frase }
l1:=length(p_uno);              { longitud de la primera palabra }
l2:=length(p_dos);              { longitud de la segunda palabra }

x1:=21;                         { posicion de la primera palabra p_uno }
x2:=54;                         { posicion de la segunda palabra p_dos }

clrscr;
                                { escala de comprobacion }
writeln(lst,'123456789012345678901234567890123456789012345678901234567890');
writeln(lst,'         1         2         3         4         5         6');

write(lst,p_uno:(l1-1)+x1);
if ( (X1+l1)<x2) then write(lst,p_dos:((l2-l1-x1)+x2)   );
readln;
close(lst);
end.

   
Prueba con esto:
wrilteln(lst,'hola':15,'hola':10);
pruebalo primero sobre la pantalla sin el lst, los dos puntos le dicen a write o writeln que reserve el numero de espacios por la derecha , osea la 'a' de hola seria el caracter numero 15 la 'l' el 14 la 'o' el 13 la 'h' el 12 y así.

espero que fuera eso lo que estabas buscando , lo que ves en la pantalla , es lo que ves en la impresora.

Saludos.