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

[Broskil Giovann]

Avisado queda usted Ernesto!

Si no fuera mucha molestia un pequeño envio por correo con esos componentes de Quick para delphi 4, solucionaria mi problema solucionado.

Gracias!
__________________

"El miedo mata la mente ..."

[Combat-F2D]

mandame tu e-mail particular para porde renviartelo

[spider_Ramon]

Si no es mucha molestia enviarme los componentes de QuickReport PLis me urgenn.,...

mi correo es:
[email protected]

Gracias.

[Combat-F2D]

a tu email lo he remitido

[spider_Ramon]

Empezado por Combat-F2D

a tu email lo he remitido

Gracias por el COmponente pero...

Resulta que estoy trabajando con Delphi 6 y no me corrio , si conoces algun componente que me opueda funcionar en delphi 6, o pagina o funcion Te Lo Agradecere.

De Nuevo Gracias.

[spider_Ramon]

Empezado por spider_Ramon

Gracias por el COmponente pero...

Resulta que estoy trabajando con Delphi 6 y no me corrio , si conoces algun componente que me opueda funcionar en delphi 6, o pagina o funcion Te Lo Agradecere.

De Nuevo Gracias.

Ya Quedo jejejeje