用换行符换行啊比如:
'加入标题
Dim rx As New prt.RenderText '定义一个文本对象
rx.text = "我是标题第一行我是标题第一行" & vbcrlf & "我是标题第二行"
rx.Style.Font = New Font("黑体", 16) '设置文本对象的字体,语法:New Font(Name, Size, Style)
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rx.Style.Spacing.Bottom = 1 '和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) '加入到报表中
[此贴子已经被作者于2025/4/28 11:00:52编辑过]