以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]这个复杂图文生成的段落怎么换行? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154141) |
-- 作者:zto001 -- 发布时间:2020/9/4 19:05:00 -- [求助]这个复杂图文生成的段落怎么换行? 复杂图文 RenderText对象用于打印文本,该对象中的文本格式是统一的,不能分别设置。 Dim doc As New PrintDoc \'定义一个报表 如果我要在中间换行,怎么换行? |
-- 作者:zto001 -- 发布时间:2020/9/4 19:10:00 -- 还有段落字体大小怎么设置 Dim rpar0 As New prt.RenderParagraph() \'定义一个段落对象 Dim f0 As New Font(rpar0.Style.Font, FontStyle.Bold) \'定义一个同样但加粗的字体 rpar0.Content.AddText("姓名 15616161515", f0) rpar0.Content.AddText("湖南省 益阳市 赫山区 晓园嘉苑西二栋湖南省 益阳市 赫山区 晓园嘉苑西二栋湖南省 益阳市 赫山区 晓园嘉苑西二栋") rpar0.Style.Font=New Font("微软雅黑", 9, FontStyle.Regular) rt.Cells(6,1).RenderObject=rpar0 可以设置 [此贴子已经被作者于2020/9/4 19:13:14编辑过]
|
-- 作者:zto001 -- 发布时间:2020/9/4 21:53:00 -- Dim rpar0 As New prt.RenderParagraph() \'定义一个段落对象 Dim f0 As New Font(rpar0.Style.Font, FontStyle.Bold) \'定义一个同样但加粗的字体 rpar0.Content.AddText("姓名 15616161515", f0) rpar0.Content.AddText( vbcrlf ) rpar0.Content.AddText("湖南省 益阳市 赫山区 晓园嘉苑西二栋湖南省 益阳市 赫山区 晓园嘉苑西二栋湖南省 益阳市 赫山区 晓园嘉苑西二栋") rpar0.Style.Font=New Font("微软雅黑", 9, FontStyle.Regular) rt.Cells(5,1).RenderObject=rpar0 可以这样换行
|