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;
CV.Font.Handle := CreateFontIndirect(LogFont);
SetBkMode(CV.Handle, TRANSPARENT);
CV.TextOut(x, y, sText);
CV.Font.Assign(SaveFont);
SaveFont.Free;
end;
Un Saludo.