Hallo Gigant02,
das ist leider für Quickreport kein Einsteigerthema mehr
.
Du kannst da nur den Trick anwenden, dass du den Font als solchen drehst und ihn dann dem Label zuweist.
Etwa so:
Delphi-Quellcode:
procedure TForm2.QRLabel1Print(sender: TObject; var Value: String);
var
lf : TLogFont;
tf : TFont;
begin
with QRLabel1 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);
QRLabel1.Font.Assign(tf);
tf.Free;
end;
end;