- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 专业报表字体问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46371)
-- 发布时间：2014/2/21 20:10:00
-- 专业报表字体问题
五号字，就是字号：10.5，
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("宋体", 10.5, FontStyle.Bold) \'设置字体
doc.Body.Children.Add(rt) \'将文本对象加入到报表
doc.Preview() \'
报错，这个是怎么回事呢？
此主题相关图片如下：qq图片20140221200754.jpg
此主题相关图片如下：qq图片20140221200754.jpg-- 发布时间：2014/2/21 20:21:00
--
需要这样用
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
Dim size As Single = 10.5
rt.Style.Font = New Font("宋体", size, FontStyle.Bold) \'设置字体
doc.Body.Children.Add(rt) \'将文本对象加入到报表
doc.Preview() \'
-- 发布时间：2014/2/21 20:22:00
--
谢谢
-- 发布时间：2014/2/21 20:42:00
--
遇到过这个问题。
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()