Impresion Canvas

[ingmichel]

Saludos amigos del foro, tengo un probrema y es que quiero justificar valores a la derecha
utilizando printer.canvas,


Gracias de antemano.

[[Chris]]

Pues proporcionarnos código de lo que estás haciendo ahorita o cómo te supones que debes hacer?

Saludos

[ingmichel]

Printer.Canvas.TextOut(1500,2000,FormatFloat('#,##.00', 9567.23));


este es un valor que quiero justificar de derecha a izquierda o sea como hago para que por printer.canvas pueda ponerle un Align right
o como le puedo decir que el valor se muestre rightToleft

[ecfisa]

Hola ingmichel.

Te pongo un ejemplo de muestra:

Código Delphi [-]
...
implementation

uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
const
   V: array[1..5] of Double = (1234.24, 315.12, 1245.82, 1.33, 12130.15);
   MARGEN = 300;
var
  i,x,y: Integer;
begin
  with TPrinter.Create do
  try
    x:= Printer.PageWidth div 15;
    y:= Printer.PageHeight div 50;
    BeginDoc;
    for i:= 1 to 5 do
      Canvas.TextOut(MARGEN+x-Canvas.TextWidth(FormatFloat('#,##.00', V[i])), i*y, FormatFloat('#,##.00', V[i]));
  finally
    EndDoc;
    Free;
  end;
end;

Saludos.

[ingmichel]

Muchisimas gracias ecfisa, tu codigo me funciono perfectamente,
Feliz Navidad y prospero año nuevo...