ActiveReport报表批量预览

收藏

ActiveReport可以实现批量预览吗？下面是我的代码，其中TestForm2是报表预览画面。例如我想打开10个预览画面，但程序执行到 “test.Rpt(rptObj)”时，预览画面打开，但代码也不再继续执行，只有当预览画面关闭时，For循环才继续向下执行。所以请问是否有批量预览的Demo参考一下，或者是我现在的代码存在什么问题。

Public Function Main(ByVal str() As String) As Integer
      AppGlobal.g_ExitCode = 1

      If str.Length > 0 Then
         Dim strg() As String
         strg = Split(str(0), ",")
         Process.Print(Trim(strg(0)), Trim(strg(3)), Trim(strg(1)), Trim(strg(2)), Trim(strg(4)), Trim(strg(5)))
      Else

         Log4NetUtil.LogWriteLine("1")
         AppGlobal.g_ExitCode = 1
      End If

      For i = 0 To 10
         Dim rptObj As New SectionReport
         Dim test As New TestForm2
         test.Rpt(rptObj)
      Next

      Return AppGlobal.g_ExitCode
End Function