Imprimir qrlabel en vertical con QuickReport

[ramiretor]

hola a todos:

Pues si no has tenido la respuesta, te quiero decir que si es posible rotar el texto de la siguiente manera:

Uses
Windows,
Graphics;
procedure AngleTextOut(Canvas: TCanvas; const Text: String; x, y, angle:
Integer);
var
LogFont : TLogFont;
SaveFont : TFont;
begin
SaveFont := TFont.Create;
SaveFont.Assign(Canvas.Font);
GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont);
with LogFont do
begin
lfEscapement := angle *10;
lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
lfOutPrecision:=out_tt_precis;
lfQuality:=proof_quality;
end;
Canvas.Font.Handle := CreateFontIndirect(LogFont);
SetBkMode(Canvas.Handle, TRANSPARENT);
Canvas.TextOut(x, y, Text);
Canvas.Font.Assign(SaveFont);
SaveFont.Free;
end;

este procedimiento te gira el texto pero no en el reporte si no sacandolo con canvas. Lo que tienes que hacer es pasarle a este procedimiento como parametro la etiqueta que quieres girar, y generar este procedimiento en el BeforePrint del reporte.

Pero por si no funciona dejame decirte que existen componentes especiales para Qreports que giran el texto como tú quieras, si los necesitas yo los tengo para Delphi 4 y les hice brujería para que sirvan en Delphi 7, solo avisame

Salu2 foro