顺序错了,要先设置字体,再设置样式:
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置字体
rt.Style.FontBold = True
rt.Style.FontUnderline = True
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览