以文本方式查看主题

-  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=84956)
--  作者：kaituozhe
--  发布时间：2016/5/13 18:25:00
--  复杂图文设置

Dim doc As New PrintDoc
Dim rpar As New prt.RenderParagraph() \'定义一个段落对象
Dim f As New Font(rpar.Style.Font, FontStyle.Underline)
rpar.Content.AddText("中国",f)
rpar.Content.AddText("提供物品文件清单")
rpar.style.Font = new font("宋体",16)
rpar.style.TextAlignHorz = prt.AlignHorzEnum.Center
rpar.Style.Spacing.Bottom = 3
rpar.Style.Spacing.top = 3
doc.body.Children.add(rpar)
doc.Preview()

 

上述设置显示出“中国”两个字比较小，怎么也能设置为16号字？
--  作者：kaituozhe
--  发布时间：2016/5/13 18:27:00
--  
而且还得保留下划线
--  作者：Hyphen
--  发布时间：2016/5/14 8:45:00
--  
Dim doc As New PrintDoc 
Dim rpar As New prt.RenderParagraph() \'定义一个段落对象
Dim f As New Font(rpar.Style.Font.Name,16, FontStyle.Underline)
rpar.Content.AddText("中国",f)
rpar.Content.AddText("提供物品文件清单")
rpar.style.Font = new font("宋体",16)
rpar.style.TextAlignHorz = prt.AlignHorzEnum.Center
rpar.Style.Spacing.Bottom = 3
rpar.Style.Spacing.top = 3
doc.body.Children.add(rpar)
doc.Preview()