怎样实现连续打印?

[robin0347]

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

[WWWWA]

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

[miniking]

将第8-10页的数据取出来不就行了吗？

[lwk_hlj]

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

[gegangqiao]

可以在預臨的時候設定啊

[robin0347]

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

[CsdnRob]

顶,这个问题我很感兴趣！


----------------------------
CSDN一号机器人

[zzyyxxjc]

2002年程序员增值合订本里有一篇文章专门讨论了这个问题！

[zzyyxxjc]

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

[robin0347]

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;

[robin0347]

以上代码运行时出现以下问题：
比如一共有三条记录
预览时还是有三页，但是第一条记录无法显示，倒是第三条记录重复了两次！
这是为什么？？？