Text mittig drucken

[Harry M.]

Hallöchen zusammmen,
ich verusche eine Rechnung zu drucken.
Kopf und Fuszeile jeweils mittig, Artikel links und Preis rechts am Rand.

Delphi-Quellcode:

var
  iPageWidth, iPageHeight: Cardinal;
  iNextLine: Cardinal;
  I: Integer;
begin
  Printer.Title := 'Titel';

  Printer.Orientation := poPortrait;
  SetMapMode(Printer.Handle, MM_LOMETRIC);

  Printer.BeginDoc;

  SetTextAlign(Printer.Handle, TA_CENTER + TA_TOP);                                // Oben, mittig

  iPageWidth := GetDeviceCaps(Printer.Handle, HorzSize);
  iPageHeight := GetDeviceCaps(Printer.Handle, VertSize);

  Printer.Canvas.Font.Name := Printer.Fonts.Strings[0];

  { Kopfbereich }
  Printer.Canvas.Font.Height := 5 * 10;
  iNextLine := Printer.Canvas.Font.Height;
  Printer.Canvas.TextOut( (iPageWidth * 2), iNextLine,  'Heading');               // Mittig

  Inc(iNextLine, Printer.Canvas.Font.Height);
  Printer.Canvas.Font.Height := 4 * 10;

  Printer.Canvas.TextOut( (iPageWidth * 2), iNextLine,  'Subheading');            // Mittig



  { Haupttetxt}

  for I := 1 to 5 do begin
    Inc(iNextLine, Printer.Canvas.Font.Height);
    Printer.Canvas.Font.Height := 3 * 10;

    SetTextAlign(Printer.Handle, TA_LEFT);
    Printer.Canvas.TextOut( (iPageWidth * 2), iNextLine,  'Artikelname');         // Links

    SetTextAlign(Printer.Handle, TA_RIGHT);                                       // Rechts
    Printer.Canvas.TextOut( (iPageWidth * 2), iNextLine,  'Preis');

    Inc(iNextLine, Printer.Canvas.Font.Height);
    end;


  { Fußzeile }

  SetTextAlign(Printer.Handle, TA_BOTTOM + TA_CENTER);                            // Unten, mittig
  Printer.Canvas.Font.Height := 4 * 10;

  Printer.Canvas.TextOut( (iPageWidth * 2), iNextLine, DateTimeToStr(Now) );      // Mittig

  Printer.EndDoc;
end;

Das Problem ist das Kopf und Fußzeile nicht mittig sind, der Text des Artikes rechts statt links steht und der Preis welcher links statt rechts steht.
Es wäre zwar möglich, TA_LEFT gegen TA_RIGHT zu tauschen.... um Artikel und Preis und die richtige STelle zu bekommen... aber mit solchen Code-Krücken kann ich mich nicht zufrieden geben Und das Problem von TA_CENTER behebt so auch nicht. Wie also bekomme ich den Text an die richtige Stelle?