【200分紧急求助】”用QR的ON NEEDDATA、打印内容所在BAND的AFTER PRINT事件中进行判断，可控制打印行数、不足一页用空行填满。“这个

Question

如题：另见：http://expert.csdn.net/Expert/topic/1993/1993711.xml?temp=.55912423天内一起结贴。请大家帮助！

Answer 1

用report machine 很容易实现。

Answer 2

一个好的方法（有点笨，但是有效）用qrshape花格子，一页能打多少行就花多少格子。

Answer 3

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;