(Resolvido) QuickReport - Imprimir na Vertical

[José Luiz]

 

Preciso imprimir envelopes, e para isto necessito imprimir na vertical.

 

Alguém sabe como fazer isto no QuickReport ?

 

Obrigado

 

José Luiz

 

[Jhonas]

Preciso imprimir envelopes, e para isto necessito imprimir na vertical.

Alguém sabe como fazer isto no QuickReport ?

Algumas sugestões

Imprime em qualquer ângulo desejado(só funciona com fontes True Type):

procedure MyRotateText(CV : TCanvas; sText:String; X, Y, Angle:Integer);
{ângulo em graus}
var
LogFont : TLogFont;
begin
GetObject(CV.Font.Handle, SizeOf(TLogFont), @LogFont);
  LogFont.lfHeight := Cv.Font.Height;
  LogFont.lfEscapement:= Angle*10;
  LogFont.lfQuality := PROOF_QUALITY;
  CV.Font.Handle := CreateFontIndirect(LogFont);
  CV.TextOut(X,Y,sText);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
MyRotateText( Canvas, 'Texto na vertical',  Width div 2, Height div 2, 90 );
end;

Veja este post.... nele tem o endereço para baixar um componente para o QR

http://scriptbrasil.com.br/forum/index.php...st&p=459858

Outro endereço do componente QRAngledLabel

http://www.qusoft.com/getfile.asp?level=0&...me=QRANGLBL.ZIP

abraço

[davidbezerra]

se voce quer colocar todo o texto na vertical, altere a propriedade do QuickRep1.Page.Orientation:=poLandscape;

todo o relatorio ficara em paisagem, ai so basta dimensionar o envelope.