文件套打中如何定义字体类型大小及居中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文件套打中如何定义字体类型大小及居中

共有3691人关注过本帖树形打印复制链接主题：文件套打中如何定义字体类型大小及居中

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）回复9楼，错误的意思是，同一个... 发帖心情

Post By：2014/7/30 22:33:00 [只看该作者]

谢谢有点甜老师还真是缺少了这个太不应该出现的问题代码多了就大意咯

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）?回复9楼，错误... 发帖心情

Post By：2014/7/30 23:48:00 [只看该作者]

案卷编号这个字段怎么显示的值没有带"[]"号？

代码如下：

rx = new prt.RenderText

rx.Text = CurRow("案卷编号")

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中

rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中

rx.Style.Font = New Font("楷体", 25, FontStyle.Bold)

'rx.Style.FontBold = True '字体加粗

rx.y = 94

rx.x = 36

doc.body.Children.Add(rx)

运行效果图如下

此主题相关图片如下：123.jpg

[此贴子已经被作者于2014-7-31 9:05:49编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/31 9:43:00 [只看该作者]

自己的问题

Dim Doc As new PrintDoc
Dim rx As object = new prt.RenderText
rx.Text = "asdf[asdfasdfasdf]asdfsdf"
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rx.Style.Font = New Font("楷体", 25, FontStyle.Bold)
'rx.Style.FontBold = True '字体加粗
rx.y = 94
rx.x = 36
doc.body.Children.Add(rx)
Doc.Preview