我把专业报表文字对象的位置坐标存放在“套打编辑”表格中，在打印按钮中调用坐标的数值。便于随时修改坐标，进行调试。但出现如图错误，请老师看看是哪里的问题？谢谢！
此主题相关图片如下：123.jpg
代码如下：
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
Dim dr As DataRow
rt = new prt.RenderText
rt.Text = "piao据的时候" '设置文本对象的内容
rt.Style.Font = New Font("宋体", 20, FontStyle.Regular)
dr = DataTables("套打编辑").Find("套打名称 = '"正卷封面"' And 打印元素 = '"原告"'") '找符合条件的行
If dr IsNot Nothing Then '如果找到的话
rt.x = dr("竖向进纸x") '取该行的x坐标
rt.y = dr("竖向进纸y")
End If
doc.body.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "统默认会自动根据实际纸张的大小" '设置文本对象的内容
rt.Style.Font = New Font("宋体", 20, FontStyle.Regular)
dr = DataTables("套打编辑").Find("套打名称 = '"正卷封面"' And 打印元素 = '"被告"'")
If dr IsNot Nothing Then '如果找到的话
rt.x = dr("竖向进纸x") '设置坐标的时候,注意加上偏移参数
rt.y = dr("竖向进纸y")
End If
doc.body.Children.Add(rt)
doc.Preview() '预览
加好友 
发短信
Post By：2019/5/2 9:05:00 [显示全部帖子]
