主题：专业报表字体问题

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("宋体", CSng(10.5) , FontStyle.Bold) '设置字体

doc.Body.Children.Add(rt) '将文本对象加入到报表

doc.Preview()