QRlabel en vertical

[marcoszorrilla]

Aunque esta solución no sirve para QuickReport sino para imprimir con el "Canvas" de la impresora aquí te la pongo, ahora ya veo lo que quieres decir orientación vertical del texto.

Código Delphi [-]
   Cómo imprimir un texto vertical
   procedure AngleTextOut(CV: TCanvas; const sText: String; x, y,
  angle:integer);
  var
     LogFont: TLogFont;
     SaveFont: TFont;
  begin
       SaveFont := TFont.Create;
       SaveFont.Assign(CV.Font);
       GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont);
       with LogFont do begin
            lfEscapement := angle *10;
            lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
       end; {with}
       CV.Font.Handle := CreateFontIndirect(LogFont);
       SetBkMode(CV.Handle, TRANSPARENT);
       CV.TextOut(x, y, sText);
       CV.Font.Assign(SaveFont);
       SaveFont.Free;
  end;

Un Saludo.