主题：请老师指教，错误在哪里？

此主题相关图片如下：12.jpg

Dim doc As New PrintDoc '定义一个报表
Dim rt1 As New prt.RenderText '定义一个箱号文本对象
Dim rt2 As New prt.RenderText '定义一个件数文本对象
Dim rt3 As New prt.RenderText '定义一个区域文本对象
Dim rt4 As New prt.RenderText '定义一个客户代码文本对象
Dim Count As Integer = Tables("在库明细").Current("件数")
doc.PageSetting.Width = 102 '纸张宽度为102毫米
doc.PageSetting.Height = 76 '纸张高度为76毫米

For i As Integer =1 To Count
    rt1.Text =  Tables("在库明细").Current("起始箱号") + Count - 1
    rt1.Style.Font = New Font("宋体", 36, FontStyle.Bold) '设置字体
    rt1.Width = "Auto" '自动设置宽度
    rt1.X =10 '指定水平位置
    rt1.y =5 ' 指定垂直位置
    rt1.Style.Borders.All = New prt.Linedef(0.3, Color.black) '设置边框
    rt2.Text =  Tables("在库明细").Current("件数")
    rt2.Width = "Auto" '自动设置宽度
    rt2.X =10'指定水平位置
    rt2.y =25'指定垂直位置
    rt2.Style.Borders.All = New prt.Linedef(0.3, Color.black) '设置边框
    doc.Body.Children.Add(rt1) '将文本对象加入到报表
    doc.Body.Children.Add(rt2) '将文本对象加入到报表
    Count=Count-1
    doc.Preview() '预览
Next

专业报表中的代码执行后，出现这个错误提示，请老师指教，谢谢！