老师,在下图的签字后面加上: 谢谢!
rt.Cells(10,0).SpanCols = 2
Dim ra As prt.RenderArea
ra = rt.Cells(10,0).Area '引用第一个单元格的容器.
rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
'加入线条
Dim ln As New prt.RenderLine(5,5,25,5,New prt.Linedef)
ln.Width = "Parent.Width"
ln.Height = "Parent.Width"
ra.Children.Add(ln)
Dim rx As New prt.RenderText
rx.Text = "受种者或监护人签字:"
rx.X = "0"
rx.y = "1"
ra.Children.Add(rx)
已解决
[此贴子已经被作者于2018/6/26 7:18:43编辑过]