主题：打印出错

此主题相关图片如下：0)$c)7eby1xo6{62o0ks`)r.png

Dim doc As New PrintDoc
Doc.PageSetting.BottomMargin = 0
Doc.PageSetting.topMargin = 0
Doc.PageSetting.leftMargin = 0
Doc.PageSetting.rightMargin = 0
doc.PageSetting.Width = 40 '纸张宽度为100毫米
doc.PageSetting.Height = 30 '纸张高度为120毫米
Dim tbl As Table = Tables("县区_table2")
tbl.sort= "考试号"
For i As Integer = 0 To tbl.Rows.count-1
Dim r As Row = tbl.Rows(i)
    Dim rx As new prt.RenderText
rx.Style.Font = New Font("黑体", 10, FontStyle.Bold) '设置字体
    rx.text =Chr(10) & " 东兴区18生地结业考试" & Chr(10) & Chr(10) & "  考场:" & trim(r("考试号")).Substring(4,3)  &  "   座位:" & trim(r("考试号")).Substring(7,2)  & Chr(10) & "  考号:" & r("考试号") & Chr(10) & "  姓名:" & r("姓名") & Chr(10) & Chr(10) & "  考点:" & r("考点学校")
    doc.Body.Children.Add(rx)
    If i < tbl.Rows.count-1 Then
        rx.BreakAfter = prt.BreakEnum.Page
    End If
Next
doc.preview()

 

 

老师，上面代码出现有时打印一两张就出现上面图的错误提示，请问是什么原因，怎么办，谢谢

trim(r("考试号")).Substring(4,3)

If e.DataCol.name = "班级全称"
    Dim c() As Char = {"级", "班"}
    Dim str As String = e.DataRow("班级全称")
    Dim s1() As String = str.Split(c)
    e.DataRow("班级") = s1(1).PadLeft(2,"0")
    e.DataRow("年级代码") = str(val(s1(0).Substring(4,2))+3)
End If

 

 

datachenged事件，说调用目标出错，是不是也是类似问题如何改？

 你要判断字符的长度才行，比如

 

If e.DataCol.name = "班级全称"
    Dim c() As Char = {"级", "班"}
    Dim str As String = e.DataRow("班级全称")
    Dim s1() As String = str.Split(c)

    If s1.length >= 2 AndAlso s1(0).length >= 6 Then
        e.DataRow("班级") = s1(1).PadLeft(2,"0")
        e.DataRow("年级代码") = str(val(s1(0).Substring(4,2))+3)

    End If
End If

你要判断字符的长度才行，比如 If e.DataCol.name = "班级全称" Dim c() As Char = {"级", "班"} Dim str As String = e.DataRow("班级全称") Dim s1() As String = str.Split(c) If s1.length >= 2 AndAlso s1(0).length >= 6 Then e.DataRow("班级") = s1(1).PadLeft(2,"0") e.DataRow("年级代码") = str(val(s1(0).Substring(4,2))+3) End If End If

还出提示调用目标错误 ，但当改为e.DataRow("年级代码") = s1(0).Substring(4,2)就没问题

If e.DataCol.name = "班级全称"
    Dim c() As Char = {"级", "班"}
    Dim str As String = e.DataRow("班级全称")
    If str > "" Then
        Dim s1() As String = str.Split(c)
        If s1.length >= 2 AndAlso s1(0).length >= 6 Then
            e.DataRow("班级") = s1(1).PadLeft(2,"0")
            e.DataRow("年级代码") = val(s1(0).Substring(4,2))+3
        End If
    End If
End If

老师，1楼问题按2楼的做好做了，但不是要出现同样问题，因为我是用这个打印考号座签，我的表中考试号是没有空的，现在测试有时打印几张出错，有时打印十几张出错，关键是表的内容相同，有不有可能是热敏打印的内存原因，因我要连续打印几百张，这该怎么办？

老师，1楼问题按2楼的做了测试，但还是要出现同样问题，因为我是用这个打印考号座签，我的表中考试号是没有空的，现在测试有时打印几张出错，有时打印十几张出错，关键是表的先后测试内容相同，有不有可能是热敏打印的内存原因，因我要连续打印几百张，这该怎么办？

 预览是否正常？只是打印的时候不正常？报什么错？

 

 你可以一张一张打印，也就是每次new一个doc，每次print。

预览是正常的，打印不正常，不正常时出现提示：未将对象设置到对象的实例，如果一张一张的打会不会很慢，代码该如何写