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

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

望能提供解决方案，谢谢！

nicholas 你好

请问你Windows7和XP版本分别是什么，是32位系统还是64位系统呢。