当打印的内容不够填满一张纸的时候,我想把数据下面的表格打印出来,怎么办呢,就是说,我现在是这样做的,在 DetailBand 里面放了 QRShap 和 QRDBText,然后把表格和数据一起打印出来,但是,如果数据不能打印满一张纸,那么不可能表格继续打印,就是下面是空的了,我想把表格打满一张纸,那位大虾帮助解决一下,不明白的,我继续解释,在线等待。。

解决方案 »

  1.   

    两种方法:1、添加空记录;2、用QR的ON NEED DATA事件进行控制
      

  2.   


            inc(i);//i是一個全局變量 
    //qr不要設置dataset(即為空),BeforePrin裡面dataset.first;//設置為第一記錄
    //在onneeddata裡面,
    //因為以前搞過,都過了比較久了,你試試看看行不行
            if not ADOQuery1.Eof then
            begin
                    QRLabel2.Caption:=ADOQuery1.Fields[1].AsString;
                    QRLabel3.Caption:=ADOQuery1.FieldByName('SL').AsString;//+ADOQuery1.FieldByName('DW').AsString;
                    ADOQuery1.Next;                if i<=20 then
                    MoreData:=true
                    else
                    begin
                    QuickRep1.NewColumn;
                    i:=0;
                    MoreData:=true;
                    end;
            end
            else
            begin
                    QRLabel2.Caption:='';
                    QRLabel3.CaptioN:='';                if i=20 then
                    MoreData:=false;
            end;