Text um 90 Grad auf QReport gedreht ausdrucken?

[mlspider]

Hallo,

mit folgendem Beispiel wird der Text eines QRLabels um 90 Grad gedreht:

Delphi-Quellcode:

procedure TEinzahlerDruck.QRLabel5Print(sender: TObject;
  var Value: String);
var 
   lf : TLogFont; 
   tf : TFont; 
begin 
   with QRLabel5 do begin
     tf := TFont.Create;
     tf.Assign(Font);
     GetObject(tf.Handle, sizeof(lf), @lf);
     lf.lfEscapement := 900;
     lf.lfOrientation := 900;
     tf.Handle := CreateFontIndirect(lf);
     Font.Assign(tf);
     QRLabel5.Font.Assign(tf);
     //tf.Free;
   end;
end;

Nur leider wird diese Geschichte nicht so gedruckt, wie in der Vorschau.

[omata]

Hallo mlspider

schau doch mal hier.

MfG
Thorsten

[mlspider]

Dieses Beispiel ist mir bereits bekannt. Leider bekomme ich die Kompo nicht installiert.

Edit: Komponente ließ sich installieren. War ein Fehler meinerseits. Werde diese nun ausgiebig testen.