為什么能Preview,卻不能Print.

我可以預覽報表﹐但卻不能打印出來﹐為什么﹖
程序如下﹕
procedure TQRPSO.QuickRepNeedData(Sender: TObject; var MoreData: Boolean);
begin
  with FrmStockPdOut.TableDetail do
  begin
     if not Eof then
        begin
          QRL1.Caption := FieldByName('OC_NO1').AsString+'-'+FieldByName('OC_NO2').AsString;;
          QRL2.Caption := FieldByName('ITEMNO').AsString;
          Next;
        end
     else
        BEGIN
          QRL1.Caption := '';
          QRL2.Caption := '';
        END;
  end;  i := i+1;
          if i>10*10 then
             MoreData := False
          ELSE
             MoreData := True;
end;