Jump to content
Fórum Script Brasil
  • 0

Rave Report


Arckyz

Question

Olá pessoal,

pois é preciso fazer um relatorio horizontal!?!

Nunca vi um, não sei nem se existe no delphi...

Para quem não intendeu o Relatorio horizontal..

Um relatorio vertical seria assim:

Nome | Idade

Andre | 18

Um relatorio horizontal seria assim:

A..........................n

n..........................o

d..........................m

r..........................e

e

_________________

..........................i

1........................d

8........................a

..........................d

..........................e

espero que tenho sido claro.

Então existe algum meio de criar relatorio desse modo no rave report? ou senao no quick report mesmo se não tiver outra solucao..

Obrigado falou

Edited by Arckyz
Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

talvez usando este codigo:

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;
--------------------------------------------------------------------------- dica de Adriano Santos
procedure TForm1.Button1Click(Sender: TObject); 
  procedure ImprimirNaVertical(AQuick: TQuickRep; ABanda: TQrBand; 
    ATexto: string); 
  var 
    lf: TLogFont; 
    tf: TFont; 
    xQrImage: TQrImage; 
  begin 
    xQrImage := TQrImage.Create(AQuick); 
    xQrImage.Parent := ABanda; 
    xQrImage.Align := alLeft; 
    xQrImage.Width := 15; 
    xQrImage.BringToFront; 
    with xQrImage.Canvas do 
    begin 
      Font.Name := 'Arial'; 
      Font.Size := 12; 
      tf := TFont.Create; 
      tf.Assign(Font); 
      GetObject(tf.Handle, Sizeof(lf), @lf); 
      lf.lfEscapement := 900; 
      lf.lfOrientation := 450; 
      tf.Handle := CreateFontIndirect(lf); 
      Font.Assign(tf); 
      tf.Free; 
      TextOut(0, xQrImage.Height div 2, ATexto); 
    end; 
  end; 
begin 
  ImprimirNaVertical(QuickRep1,QRBand1,'Ola'); 
end;

Ela imprime um texto no canvas de um TQrImage na vertical.

-------------------------------------------------------------------------------------

ou ainda usando componentes

http://www.guiadodelphi.com.br/ler.php?codigo=1073

http://www.guiadodelphi.com.br/compdelphi/QrlbLang.zip

http://sr6.xoom.com/_XMCM/valcirjr/qranglbl.zip

http://sr6.xoom.com/_XMCM/valcirjr/qrlblang.zip

http://www.qusoft.com/delphilegacy.html

-----------------------------------------------------------------------------------------

ou ainda de outra maneira

Se você colar esse texto no Form o label vai pular as linhas.

object Label3: TLabel

Left = 304

Top = 96

Width = 6

Height = 65

Caption = 'L'#13'a'#13'b'#13'e'#13'l'

end

--------------------------------------------------------------------------------------------------

Outra maneira ainda

no Caption do qrLabel escreva o texto com espaços entre as letras, exemplo

T e s t e

na propriedade WordWrap deixa true e na propriedade AutoSize coloque falso, agora diminua o tamanho do width do qrLabel para o tamanha que apareça apenas uma letra e agora aumente o tamanho do heigth ate aparecer a palavra inteira.

espero que ajude ... abraço

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...