怎样实现连续打印?

Question

在一个数据表中有10条记录，每一条记录都对应一张A4报表页
现在我想实现选择打印第8到第10条连续打印，我该如何去做？
各位大侠帮帮忙啊！

Answer 1

让用户自己选择
iCount,iStart
dataset.first;
好像quickreport可以指定打印页面的吧?

Answer 2

预览的时候，只有部分在跟着记录的变化而变化
因为我有一些数据是把他赋值给qrlabel控件的caption
我该怎么做才能使qrlabel的cation信息也随记录的变化而变化！！！

Answer 3

在QR的ON NEED DATA事件中赋值。

Answer 4

顶,这个问题我很感兴趣！
----------------------------
               CSDN一号机器人

Answer 5

2002年的增值合订本(上)的的目录第五页 《深入QuickRep》

Answer 6

var
  licensetype: string;
  declaretype: string;
begin
  MoreData:=True;
  with self.aqAcquire do
    begin
      if not self.aqAcquire.Eof then
        begin
          licensetype:=self.aqAcquire.Fields[8].AsString;
          if licensetype='A' then
            begin
              self.qrlebADate.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[9].AsDateTime);
              self.qrlebBDate.Caption:='';
              self.qrlebCDate.Caption:='';
            end
          else if licensetype='B' then
                 begin
                   self.qrlebBDate.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[9].AsDateTime);
                   self.qrlebADate.Caption:='';
                   self.qrlebCDate.Caption:='';
                 end
               else if licensetype='C' then
                      begin
                        self.qrlebCDate.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[9].AsDateTime);
                        self.qrlebADate.Caption:='';
                        self.qrlebBDate.Caption:='';
                      end;
          declaretype:=self.aqAcquire.Fields[12].AsString;
          if declaretype='主班' then
            begin
              self.W1.Caption:='√';
              self.W2.Caption:='';
              self.W3.Caption:='';
              self.W4.Caption:='';
              self.qrLicense1.Caption:=self.aqAcquire.Fields[13].AsString;
              self.qrLicense2.Caption:='';
            end
          else if declaretype='副班' then
                 begin
                   self.W1.Caption:='';
                   self.W2.Caption:='√';
                   self.W3.Caption:='';
                   self.W4.Caption:='';
                   self.qrLicense1.Caption:='';
                   self.qrLicense2.Caption:=self.aqAcquire.Fields[13].AsString;
                 end
               else if declaretype='机动司机'then
                      begin
                        self.W1.Caption:='';
                        self.W2.Caption:='';
                        self.W3.Caption:='√';
                        self.W4.Caption:='';
                        self.qrLicense1.Caption:='';
                        self.qrLicense2.Caption:='';
                      end
                    else if declaretype='车管干部' then
                           begin
                             self.W1.Caption:='';
                             self.W2.Caption:='';
                             self.W3.Caption:='';
                             self.W4.Caption:='√';
                             self.qrLicense1.Caption:='';
                             self.qrLicense2.Caption:='';
                           end;
          self.lebBirthday.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[4].AsDateTime);
          self.lebAgreementDay.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[17].AsDateTime);
          self.lebAcquireDay.Caption:=formatdatetime('yyyy"年"mm"月"dd"日',self.aqAcquire.Fields[18].AsDateTime);
          self.aqAcquire.Next;
        end
      else MoreData:=False;
    end;
end;