打印不换页的问题(100分)

各位大侠，我的数据集中的记录数不定，要求是在一张连续打印纸上在打完一个数据集后不换页，继续打印下一个数据集，不管有多少个数据集都不换页，在线等。

这里有一个打印Memo中的文字的例子：
1）在uses中加入Printers单元
Printer.begin
Doc;
for i := 0 to Memo1.Lines.count - 1do
begin
y := 20;//从纸张顶部20像素的位置开始打印
printer.canvas.TextOut(20,y,Memo1.Lines);//从左边20像素的位置开始打印
y := y + 24;//24是行间距
//如果换行加上以下代码：
{
if(y > PageHeight - 20) then
//PageHeight是你自己设置的纸的高度
begin
y := 20;//回到纸的顶部
Printer.NewPage;//打印机执行换页操作
end;
}
//否则
end;
Printer.EndDoc;
没有进行调试，你试一试，换页的我试过