以下程序我是根据图片数量显示在专业报表中，每张图片显示一页，第一次显示是正确的，如果关闭预览画面，再执行一次，显示的图片数量会不断减少，图片内容也不连续，执行减少到一定程序就正常显示，然后继续循环，请问是什么原因？

        \'定义表格式*****************************************************************************************
        Dim doc1 As New PrintDoc
        Doc1=Nothing
        doc1.PageSetting.Landscape = True \'竖向打印
        doc1.Stacking = prt.StackingRulesEnum.BlockTopToBottom
       
        Doc1.PageSetting.LeftMargin = 0 \'设置左边距
        Doc1.PageSetting.RightMargin = 0 \'设置右边距
        Doc1.PageSetting.TopMargin = 0 \'设置上边距
        Doc1.PageSetting.BottomMargin =0 \'设置下边距
       
        \' Dim rt As New prt.RenderTable() \'定义一个表格对象
        \' doc1.Body.Children.Add(rt) \'将表格对象加入到报表中
        For I As Integer=1 To dr("图片数量")
            Dim 本地图片 As String=系统盘 & "\\zw\\tools\\" & 编号 & ("" & i).PadLeft(2,"0") & ".jpg"
            Dim rm As New prt.RenderImage \'定义一个图片对象
            rm.Image = GetImage(本地图片)
            rm.height="auto"
            rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.center \'图片水平居中
            rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.top \'图片垂直居上
            doc1.Body.Children.Add(rm) \'将表格对象加入到报表中
            \' rt.Cells(i, 0).RenderObject = rm \'将图片对象加入报表
            \' If  i<dr("图片数量")
            \'   rt.BreakAfter = prt.BreakEnum.page
            \' End If
        Next
       
        _MyDoc1 = Doc1
        forms("预览报表1").Show

同样的代码，我在原项目的命令窗口执行有问题，在新项目的命令窗口执行没有问题，为什么？

Dim doc2 As New PrintDoc

doc2.PageSetting.Landscape = True \'竖向打印
doc2.Stacking = prt.StackingRulesEnum.BlockTopToBottom

Doc2.PageSetting.LeftMargin = 1 \'设置左边距
Doc2.PageSetting.RightMargin = 1 \'设置右边距
Doc2.PageSetting.TopMargin = 1 \'设置上边距
Doc2.PageSetting.BottomMargin =1 \'设置下边距
For I As Integer=1 To 24
   
    Dim 本地图片 As String= "c:\\zw\\tools\\zsa0001" &  ("" & i).PadLeft(2,"0") & ".jpg"
    Dim rm As New prt.RenderImage \'定义一个图片对象
    rm.Image = GetImage(本地图片)
    rm.height="auto"
    rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.center \'图片水平居中
    rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.top \'图片垂直居上
    doc2.Body.Children.Add(rm) \'将表格对象加入到报表中
Next
Doc2.Preview()

执行的，都是6楼的代码？