activereport 7.0 在xp系统中未能按发送的打印任务执行打印

收藏

我的程序是在WIN7系统中开发的，程序在WIN7中打印正常。但在xp系统中却不能按输入分数打印。程序打印代码如下：
For i = 1 To intZ
                     Dim rpt1 As New SectionReport1
                     rpt1.Restart()
                     rpt1.Run()
                     rpt1.Document.Print(False)
                     System.Threading.Thread.Sleep(1300)
                     rpt1.Document.Dispose()
                     rpt1.Dispose()
                     flagbarcode2 = True
                     flagbarcode3 = True
                  Next

nicholas · nicholas

For i = 1 To intZ
                     Dim rpt1 As New SectionReport1
                     rpt1.Restart()
                     rpt1.Run()
                     rpt1.Document.Print(False)
                     System.Threading.Thread.Sleep(1300)
                     rpt1.Document.Dispose()
                     rpt1.Dispose()
                  Next