DELPHI中QuickReport打印文本框内容

Question

我想在DELPHI中利用QuickReport打印edit文本框中的内容，请问给位大侠们，应该怎么样做啊！！！

Answer 1

这个是预览,打印时,改一下qckrp1.preview;->qckrp1.print;procedure TForm1.btn1Click(Sender: TObject);
begin
  with qckrp1 do
    begin
     qrlbl3.Caption :=edt1.Text;
     qckrp1.Preview;
    end;
end;

Answer 2

把文本框的内容賦值給QuickReport的一個標簽就可以打印了

Answer 3

你是不是没放qrband啊,类型为rbTitle,把qrlabel放在qrband上.procedure TForm1.btn1Click(Sender: TObject);
begin
  with form2 do    
  begin
    qrlabel1.Caption :=edit1.Text;        
    quickrep1.Preview;
  end;
end;

Answer 4

你是不是没放qrband啊,类型为rbTitle,把qrlabel放在qrband上.procedure TForm1.btn1Click(Sender: TObject);
begin
  with form2 do    
  begin
    qrlabel1.Caption :=edit1.Text;        
    quickrep1.Preview;
  end;
end;