Foxtable(狐表)用户栏目专家坐堂 → 专业报表的段落处理(图文混排)行间距如何调整


  共有2325人关注过本帖树形打印复制链接

主题:专业报表的段落处理(图文混排)行间距如何调整

帅哥哟,离线,有人找我吗?
dtcaoqian
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:216 积分:1894 威望:0 精华:0 注册:2015/5/27 1:15:00
专业报表的段落处理(图文混排)行间距如何调整  发帖心情 Post By: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
  如何调整行间距


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:216 积分:1894 威望:0 精华:0 注册:2015/5/27 1:15:00
  发帖心情 Post By:2019/1/29 11:51:00 [只看该作者]

谢谢

 回到顶部