- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 专业报表里面字符后空格不显示，另外请教怎么自动换行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169031)
-- 发布时间：2021/5/30 8:28:00
-- 专业报表里面字符后空格不显示，另外请教怎么自动换行
如图，前面空格有下划线，后面空格就没有
此主题相关图片如下：无标题.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编辑过]
-- 发布时间：2021/5/30 20:39:00
--
我反馈一下。有2种临时解决方法
1、Yobo改为下划线
2、使用Padding.Right
rx = new prt.RenderText
Dim xm As String = "张三"
rx.Text = " " & xm & "_"
rx.Style.Font = New Font("楷体", 13) \'设置字体
rx.Style.LineSpacing = 150 \'1.5倍行距
rx.Style.FontUnderline = True \'加下划线
rx.Style.Padding.Right = 1
rx.x = "Prev.Right"
rx.y = "Prev.Top"
rx.Width = "Auto"
doc.body.Children.Add(rx)
-- 发布时间：2021/5/30 23:43:00
--
谢谢蓝版，过渡方法暂时能用，打印了看不出来。换行问题麻烦您也解答一下，怕您没看到，我另外发帖了