为什么打印会出错？？

  Dim myds2 As New DataSet
            myds2 = Mydbdata.myDBds(" select a.departs1,a.departs2,a.Content,b.tableNo,b.Type,a.quantity from tb_RecordDetails a left join tb_orderRecord b on a.orderNo=b.orderNo where  a.Status<> 9 and a.orderNo ='" & Str_OrderNo_menu & "' and (a.departs1 like '明档' or a.departs2 like '明档') and a.printStatus=1 order by a.departs1  ")
            '''' myds2.WriteXmlSchema("F:\a\ww\menunamedetails2215md2.xml")
            If myds2.Tables(0).Rows.Count <> 0 Then
                PrinterName = ""
                PrinterName = "mdprt"
                PrinterService.SetDefaultPrinter(".", PrinterName)
                PrintDoc.PrinterSettings.PrinterName = PrinterName
                Dim cry_namemdprt As New Cry_MenuNamemdprt
                cry_namemdprt.SetDataSource(myds2)
                cry_namemdprt.PrintToPrinter(1, False, 1, 1)
             End If这是我加载打印的代码？为什么有打印几十次后就打印不了，要把程序重新启动哦，错误提示为加载报表失败。
我的程序打印比较频繁。。
还有什么好的方法来进行打印没、？？