复杂图文设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复杂图文设置

共有2185人关注过本帖树形打印复制链接主题：复杂图文设置

kaituozhe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

复杂图文设置 发帖心情

Post By：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号字？