以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表中,同一表格,如何部分字体加粗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56568)

--  作者:蓝色理想
--  发布时间:2014/9/9 10:01:00
--  专业报表中,同一表格,如何部分字体加粗?
        Dim rt As New prt.RenderTable() \'定义一个表格对象
        rt.Width=240 \'设置表格总宽度
        doc.Body.Children.Add(rt) \'将表格对象加入到报表中
        rt.Style.GridLines.All = New prt.Linedef  \'设置网格线
        rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'所有文本内容水平居中对齐
        rt.Style.TextAlignVert = prt.AlignHorzEnum.Center \'所有文本内容垂直居中对齐
        rt.Style.Font  = New Font("宋体", 13,FontStyle.Bold)  \' FontStyle.Regular) \'设置字体


 rt.Cells(4,1).Text  中文字分为两部分
1、  ”开发项目:“ 要加黑    
2、”AABBCC工程“ 不要加黑

请问高手,如何实现?

--  作者:Bin
--  发布时间:2014/9/9 10:03:00
--  
http://www.foxtable.com/help/topics/1183.htm
--  作者:蓝色理想
--  发布时间:2014/9/9 10:35:00
--  
不是一个事啊,版主的是段落
我的是表格中的一个单元格
我需要在表格的一个单元格中实现这个效果

--  作者:Bin
--  发布时间:2014/9/9 10:36:00
--  
在单元格里加入段落对象,才能实现这个效果.
--  作者:蓝色理想
--  发布时间:2014/9/9 10:38:00
--  
请指点一下,如何加入段落
--  作者:蓝色理想
--  发布时间:2014/9/9 10:39:00
--  
我没找到单元格加入段落的方法
--  作者:蓝色理想
--  发布时间:2014/9/9 10:51:00
--  
自己顶一下,等版主指点
--  作者:有点甜
--  发布时间:2014/9/9 11:25:00
--  

 参考

 

        dim rx As New prt.RenderText \'定义一个文本对象
        rt.Cells(1, 1).RenderObject = rx
\'将文本对象放置在单元格中


--  作者:蓝色理想
--  发布时间:2014/9/9 11:52:00
--  
收到,谢谢

我最终用的是这个

        Dim rpar As New prt.RenderParagraph() \'定义一个段落对象

        Dim ra As prt.RenderArea

        ra = rt.Cells(4,1).Area \'引用单元格的容器

        ra.Children.Add(rpar)