主题：这种带下划线和不带下划线的混在一起,用专业报表,怎么实现?

关于字体

普通用户可以跳过本节内容。

字体的类型为Font，定义一个字体的语法为：

Dim 变量名 As New Font(Name, Size, Style)

Name:  字体名称。
Size:  字体大小，单位为磅。
Style: 可选参数，字体样式，FontStyle型枚举。

下面是FontStyle型枚举的可选值：

Bold：      加粗。
Italic：    倾斜。
Regular：   普通。
Strikeout： 中间有直线通过。
Underline： 带下划线。

例如定义一个黑体、大小为12磅、带下划线的字体：

Dim fnt As New Font("黑体",12,FontStyle.Underline)

样式可以用Or运算符叠加，例如定义一个宋体、大小为12磅、加粗且带下划线的字体：

Dim fnt As New Font("宋体",12,FontStyle.Bold or FontStyle.Underline)

RenderText对象用于打印文本，该对象中的文本格式是统一的，不能分别设置。
RenderParagraph类型专门用于打印成段文本，而且段落中的文本格式可以不同，甚至可以图文混排。
我们先在命令窗口执行下面的代码，看看RenderParagraph的不同，然后我们再具体说明RenderParagraph。

Dim doc As New PrintDoc '定义一个报表
Dim rpar As New prt.RenderParagraph() '定义一个段落对象

例如定义一个黑体、大小为12磅、带下划线的字体：

Dim f As New Font("黑体",12,FontStyle.Underline)

rpar.Content.AddText("这是一个段落. 现在是正常文本. ")
rpar.Content.AddText("现在的文本是加粗的. ", f)