有打印不出来，有时打印第一张时可以.第二张一片乌黑，这是为什么？ (50分)

这是我的一个打印和序，
其中quickrep1.dataset=table1,
要打印的内容为：listbox1的productid,可是怎么搞的，prieview的进候可以看到全部的记寻，
但是打印的时候，只打印最后一个记录，当用quickrep1.print时又可以打出全部，为什么，
有时预览可以打印，但是第一张打印正常，第二张一片黑，这又是为什么，是不是DELPHI系
统有问题，气的我差点跳楼，客户催的急：
如果觉的分数不够可以加，
下面是我的代码：
procedure TFcheckproduct1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if i<=fsettimefroproducts.listbox2.items.count-2 then
begin
table1.Locate('productid',fsettimefroproducts.ListBox2.Items.Strings,[]);
qrlabel10.Caption:=table1.fieldbyname('productid').AsString;
inc(i);
end
else
begin
table1.Last;
table2.open;
table2.Locate('productid',fsettimefroproducts.listbox2.items.strings,[]);
table1.Edit;
qrlabel10.Caption:=table2.fieldbyname('productid').AsString;
table1.FieldByName('description').AsString:=table2.FieldByName('description').AsString;
table1.FieldByName('msize').AsString:= table2.FieldByName('msize').AsString ;
table1.FieldByName('msize2').AsString:= table2.FieldByName('msize2').AsString;
table1.FieldByName('msize3').AsString:= table2.FieldByName('msize3').AsString ;
table1.FieldByName('ibox').AsString:= table2.FieldByName('ibox').AsString ;
table1.FieldByName('cbox').AsString:= table2.FieldByName('cbox').AsString ;
table1.FieldByName('cbm').AsString:= table2.FieldByName('cbm').AsString ;
table1.FieldByName('cft').AsString:= table2.FieldByName('cft').AsString ;
table1.FieldByName('gweight').AsString:= table2.FieldByName('gweight').AsString ;
table1.FieldByName('nweight').AsString:= table2.FieldByName('nweight').AsString ;
table1.FieldByName('sellprice').AsString:= table2.FieldByName('sellprice').AsString ;
table2.close;
end;

end;

procedure TFcheckproduct1.FormCreate(Sender: TObject);
begin
i:=0;
end;

end.

最近这类问题特别多[]
使用的是HP6L打印机吧？是98环境吧？换成原装驱动试验一下。一般能够解决这个问题。
其实不仅仅是你的程序会打印黑色页面，word也可以，在非第一页打印图象的很多都是黑色的。

更新打印机驱动！

我遇到过这个情况，word + HP6L，原因是打印机所在机器的系统盘剩余空间太少了，
打印机缓冲文件(printer spool)溢出，解决办法是删除无用文件，增加剩余空间。

接受答案了.