Etikettendruck horizontal und vertikal

[needatip]

Hallo,
ich möchte auf einem Etiketten(Grafik)Drucker ein Adressetikett ausdrucken.
Auf der linken Seite drucke ich die Adresse mit untem stehendem Code.
Wie kann ich nun am rechten Etikettenrand zusätzlich einen kurzen einzeiligen Text vertikal positionieren und ausdrucken.
Hab bisher folgenden Code stehen.

Delphi-Quellcode:

 procedure TAdrDruck.Button1Click(Sender: TObject);

const texthoehe = 40;
      linkerRand= 60;

var     w,v   : TSize;
        OUTDC : HDC;
        zeile : integer;
        txt   : string;
begin
  Printer.BeginDoc;
  outDC := Printer.Canvas.Handle;
  SetMapMode(OutDc,mm_lometric);
  GetWindowExtEx(OutDC,w);
  GetViewPortExtEx(OutDC,v);
  SetMapMode(OutDC,MM_ANISOTROPIC);
  SetWindowExtEx(OutDC,w.cx,w.cy,nil);
  SetViewPortExtEx(OutDc,v.cx,-v.cy,nil);
  Printer.Canvas.Font.Name := 'Arial';
  Printer.Canvas.Font.Height := texthoehe;
  zeile := 0;
  Printer.Canvas.TextOut(linkerRand,zeile*(texthoehe+1),Edit1.Text);
  inc(zeile);
  Printer.Canvas.Font.Style := [fsBold];
  Printer.Canvas.TextOut(linkerRand,zeile*(texthoehe+1),Edit2.Text);
  Printer.Canvas.Font.Style := [];
  inc(zeile);
  Printer.Canvas.TextOut(linkerRand,zeile*(texthoehe+1),Edit5.Text);
  inc(zeile);
  Printer.Canvas.TextOut(linkerRand,zeile*(texthoehe+1),Edit6.Text);
  inc(zeile);
  inc(zeile);
  Printer.Canvas.Font.Style := [fsBold];
  Printer.Canvas.TextOut(linkerRand,zeile*(texthoehe+1),Edit7.Text+' '+ComboBox1.Text);
  Printer.Canvas.Font.Style := [];
  Printer.EndDoc;
end;

Wer kann mir hier weiterhelfen ?