如图，前面空格有下划线，后面空格就没有
此主题相关图片如下：无标题.png
另外，请教文本长度不固定的时候，连续生成的大段文字能不能根据页边距自动换行？
rx = new prt.RenderText
rx.Text = "学员"
rx.Style.Font = New Font("楷体", 13) '设置字体
rx.Style.LineSpacing = 150 '1.5倍行距
rx.x = 40 + x
rx.y = 55 + y
rx.Width = "Auto"
doc.body.Children.Add(rx)
rx = new prt.RenderText
Dim xm As String = CurRow("姓名")
xm = Chr(32) & xm & Chr(32)
rx.Text = xm
rx.Style.Font = New Font("楷体", 13) '设置字体
rx.Style.LineSpacing = 150 '1.5倍行距
rx.Style.FontUnderline = True '加下划线
rx.x = "Prev.Right"
rx.y = "Prev.Top"
rx.Width = "Auto"
doc.body.Children.Add(rx)
[此贴子已经被作者于2021/5/30 8:55:06编辑过]
加好友 
发短信
Post By：2021/5/30 8:28:00 [显示全部帖子]
