以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 专业报表的段落处理(图文混排)行间距如何调整 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130683) |
-- 作者:dtcaoqian -- 发布时间:2019/1/28 23:54:00 -- 专业报表的段落处理(图文混排)行间距如何调整 Dim rx7 As New prt.RenderParagraph() \'定义一个文本对象 doc.Body.Children.Add(rx7) \'加入到报表中 Dim font14 As New System.Drawing.Font("宋体",14,0,3,1,False) With rx7 .Content.AddText(" 内容",font14) end with 如何调整行间距 |
-- 作者:有点甜 -- 发布时间:2019/1/29 10:07:00 -- Dim doc As New PrintDoc \'定义一个报表 Dim rpar As New prt.RenderParagraph() \'定义一个段落对象 rpar.Style.LineSpacing = 300 Dim f As New Font(rpar.Style.Font, FontStyle.Bold) \'定义一个同样但加粗的字体 rpar.Content.AddText("这是一个段落. 现在是正常文本. ") rpar.Content.AddText("现在的文本是加粗的. ", f) rpar.Content.AddText("这一句是红色的. ", Color.Red) rpar.Content.AddText("这一句是上标形式,上标不再是难题. ", prt.TextPositionEnum.Superscript) rpar.Content.AddText("现在字体加粗,而且是红色. ", f, Color.Red) rpar.Content.AddText("现在字体加粗,红色,而且是下标形式. ", f, Color.Red, prt.TextPositionEnum.Subscript) rpar.Content.AddText("现在又是正常的文本了. ") rpar.Content.AddText("最后,我们来插入一个图标: ") rpar.Content.AddImage(getimage("logon.ico")) rpar.Content.AddText(".") doc.body.Children.add(rpar) Doc.Preview() \'预览报表 |
-- 作者:dtcaoqian -- 发布时间:2019/1/29 11:51:00 -- 谢谢 |