Impressão dos dados do form

[Hartvite]

Boa tarde a todos,

Solicito informações de como gerar um Relatório dos dados que foram digitados nas edit's do formulário. Informo que não é do Banco de Dados, somente as informações que foram digitadas no form, sendo que as mesmas não serão armazenadas.

Desde já agradeço.

[Jhonas]

Faça referencia dos edits aos componentes qrlabels no quick report

exemplo:

QRRecibo.QRLabel1.Caption := Edit1.Text;
    QRRecibo.QRLabel2.Caption := Edit2.Text;
    QRRecibo.QRLabel3.Caption := Edit3.Text + ' - ' + Edit8.Text;
    QRRecibo.QRLabel4.Caption := Edit4.Text + ' - ' + Edit5.Text;
    QRRecibo.QRLabel5.Caption := Edit6.Text;
    QRRecibo.QRLabel6.Caption := Edit7.Text;

    QRRecibo.Prepare;
    QRRecibo.PreviewModal;

outras informações sobre quick report

http://scriptbrasil.com.br/forum/index.php...te=quick+report

abraço

[Eder Moraes]

Boa tarde a todos,

Solicito informações de como gerar um Relatório dos dados que foram digitados nas edit's do formulário. Informo que não é do Banco de Dados, somente as informações que foram digitadas no form, sendo que as mesmas não serão armazenadas.

Desde já agradeço.

Você precisa declarar a unit Printers em uses;

with Printer do begin
    Title:= 'Imprimindo relatorio gerado...';
    BeginDoc;
    with Canvas do begin
      Pen.Width := 5;
      Font.Name := Fonte;//Fonte
      Font.Size := Tamanho; //tamanho da fonte
      altura := TextHeight('A');
      {TextOut(X,Y,Texto); }//X para Colunas Y para linhas
      TextOut(1, 10, Edit1.Text);
      TextOut(1, 40, Edit2.Text);
    end;
    EndDoc;
  end;

Sem a necessidade de usar o qrep, rave ou fastreport