我想打印一个很简单的东东。一个小表格,没有用到数据库。但用Report.Preview没有显示内容是怎么一回事。
我的方法是:在新建里选择 Report 。再在Report上画几个QRLabel。但用Report.Preview 时,没有内容,是不是没有数据库还是其它原因?在预览时下面的提示是 Page 1 of 0 .是不是没有指定页数。我不知道如何做。
希望来信告诉我。
我的方法是:在新建里选择 Report 。再在Report上画几个QRLabel。但用Report.Preview 时,没有内容,是不是没有数据库还是其它原因?在预览时下面的提示是 Page 1 of 0 .是不是没有指定页数。我不知道如何做。
希望来信告诉我。
在form中添加一个TQuickRep
在TQuickRep中把Bands中的HasTitle设为true
在Title Band中加入TQRLabelprocedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2 := TForm2.Create(self);
try
Form2.QuickRep1.Preview;
finally
Form2.Free;
end;
end;可在Title Band中显示数据。若要在 ColumnHead 或 Detail Band中
显示数据,一种方法:TQuickRep要连接数据库,即
QuickRep1.DataSet要指向一个query。
另一种方法:TQuickRep的OnNeedDate事件中添加
代码。手工添加数据。