Dim fnt1 As New Font("颜色比它黑点",20, FontStyle.Underline )
'Dim fnt01 As New Font("颜色比它黑点",20.5, FontStyle.Underline ) '这个报错，不能通过！
Dim fnt2 As New Font("颜色比它淡点",20, FontStyle.Underline Or FontStyle.Bold)
Dim rt As New prt.RenderText '定义一个文本对象
Dim doc As New PrintDoc '定义一个报表
rt = New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.Font = fnt1
doc.Body.Children.Add(rt) '将文本对象加入到报表
rt = New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.Font = fnt2
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview()
上面代码中，打印出来的效果：Fnt1颜色稍淡，Fnt2颜色又稍黑！
（对比其它程式HTML报表文件，一样的字体，FOX专业报表打印出来颜色好似较深！）
我想在字体及大小一样时，黑色素取Fnt1和Fnt2的中间值（不太淡，也不太黑），有何办法？
[此贴子已经被作者于2014-9-8 21:55:16编辑过]
加好友 
发短信
Post By：2014/9/8 21:46:00 [显示全部帖子]
