我想打印一个很简单的东东。一个小表格,没有用到数据库。但用Report.Preview没有显示内容是怎么一回事。
    我的方法是:在新建里选择 Report 。再在Report上画几个QRLabel。但用Report.Preview 时,没有内容,是不是没有数据库还是其它原因?在预览时下面的提示是 Page 1 of 0 .是不是没有指定页数。我不知道如何做。
   希望来信告诉我。

解决方案 »

  1.   

    哈哈,你什么时候有时间在看吧。新建一个form(Form2)
    在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事件中添加
    代码。手工添加数据。