减少代码测试，每条记录只显示几个字符，没有问题后再加上明细项目
其次这里中间有个doc.Preview()，去掉
rt6.Cells(7, 4).Text = "复核签字"
rt6.Cells(8, 0).Text = "教育部门监督人员签字"
rt6.Cells(8,1).SpanCols = 5
doc.Body.Children.Add(rt6)
rt1 = New prt.RenderText
rt1.Text ="注:副卡最后一栏内教育部门监督人员在招生对象未被摇号方式录取后到有空余学位学校登记时填写."
rt1.Style.Font = New Font("黑体", 10)
doc.Body.Children.Add(rt1)
doc.Preview() '预览
End If
If tb.Rows(i)("类别").Contains("A")
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "2018年内江市东兴区小学毕业生初一学位申请(白卡主卡)" '设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.Font = New Font("黑体", 16, FontStyle.Bold) '设置字体
doc.Body.Children.Add(rt) '将文本对象加入到报表
Dim rt1 As New prt.RenderText
rt1.Text =" 编号:" & tb.Rows(i)("bh") & " " & tb.Rows(i)("类型说明")
rt1.Style.Font = New Font("黑体", 12)
rt1.Style.Spacing.Top = 4
加好友 
发短信
Post By：2018/5/14 22:18:00 [显示全部帖子]
