关于delphi的打印问题(50分)

我做了一个报表，
大概是这样的，QReport1的大小是9.5 5.5inch的，也就是letter的一半，是那种老式的打印机，这个程序在98下打印是没问题的，可是在2000里，就会打一张出一张白纸，这是什么原因？
query1.First;
while not query1.Eofdo
begin
if not assigned(QReport1) then
QReport1:=TQReport1.Create(self);
QReport1.Visible:=false;
QReport1.Qry_main.Close;
QReport1.Qry_main.Open;
if QReport1.Qry_main.IsEmpty then
raise exception.Create('Error: No Record Be found!');
QReport1.QuickRep1.Print;
query1.Next;
end;