打印续页的问题.!望高手指点.!

[jianjian007]

主页:
procedure TPrint_Excuse_Note.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
MoreData := (CurrentLine < 6);
if MoreData then
try
QRLabel2.Caption := Memo.Lines[CurrentLine];
except
QRLabel2.Caption :='';
end;
Inc(CurrentLine);
end;
续页:
procedure TPrint_Excuse_Notes.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
MoreData := (CurrentLine < 23);
if MoreData then
try
QRLabel2.Caption := Memo.Lines[CurrentLine];
except
QRLabel2.Caption :='';
end;
Inc(CurrentLine);
end;
我分开打印时结果正确.!
如果我用QRCompositeReport 控件加续页时就会打主页的格子打到续页..

如何解决.!