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


  共有4001人关注过本帖树形打印复制链接

主题：文件套打中如何定义字体类型 大小及居中
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		文件套打中如何定义字体类型 大小及居中  发帖心情 Post By：2014/7/30 16:19:00 [只看该作者]

文件套打中如何定义字体类型 大小及居中

文件套打代码
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:卷宗.rar



Dim doc As New PrintDoc '定义一个报表
Dim rx As prt.RenderText '定义一个文本对象
Dim rm As prt.RenderImage '定义一个图形队形
Dim Currow As Row
Dim tbl As Table = Tables("卷宗封面")
For i As Integer = tbl.TopRow To tbl.BottomRow
    CurRow = tbl.rows(i)

    Dim rep As New prt.RenderEmpty '定义一个新的空对象
    rep.BreakBefore = prt.BreakEnum.Page '打印前换页
    doc.Body.Children.Add(rep ) '加入到报表中

    rx = new prt.RenderText
    rx.Text = CurRow("卷宗内别")       我想把这内容定义为宋体 四号字 且居中  并且在X之后的距离自动居中
    rx.y = 80
    rx.x = 36
    doc.body.Children.Add(rx)

    rx = new prt.RenderText
    rx.Text = CurRow("案卷编号")
    rx.y = 97
    rx.x = 36
    doc.body.Children.Add(rx)

    rx = new prt.RenderText
    rx.Text = CurRow("案件来源")
    rx.y = 115
    rx.x = 43
    doc.body.Children.Add(rx)
rx = new prt.RenderText
    rx.Text = CurRow("人员类别")
    rx.y = 133
    rx.x = 32
    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = CurRow("人员名称")
    rx.y = 133
    rx.x = 43
    doc.body.Children.Add(rx)

    

    rx = new prt.RenderText
    rx.Text = CurRow("案由")
    rx.y = 149
    rx.x = 50
    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = CurRow("处理结果")
    rx.y = 165
    rx.x = 57

    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = CurRow("收案时期")
    rx.y = 205
    rx.x = 36
    doc.body.Children.Add(rx)

    rx = new prt.RenderText
    rx.Text = CurRow("结案日期")
    rx.y = 205
    rx.x = 110
    doc.body.Children.Add(rx)

    rx = new prt.RenderText
    rx.Text = CurRow("共卷")
    rx.y = 222
    rx.x = 69
    doc.body.Children.Add(rx)

    rx = new prt.RenderText
    rx.Text = CurRow("第几卷")
    rx.y = 222
    rx.x = 109
    doc.body.Children.Add(rx)
rx = new prt.RenderText
    rx.Text = CurRow("共页码")
    rx.y = 222
    rx.x = 152
    doc.body.Children.Add(rx)
rx = new prt.RenderText
    rx.Text = CurRow("承办人")
    rx.y = 240
    rx.x = 59
    doc.body.Children.Add(rx)
rx = new prt.RenderText
    rx.Text = CurRow("归档日期")
    rx.y = 240
    rx.x = 109
    doc.body.Children.Add(rx)
rx = new prt.RenderText
    rx.Text = CurRow("保管期限")
    rx.y = 240
    rx.x = 170
    doc.body.Children.Add(rx)

    
Next
Doc.Preview() '预览报表


效果如下：

图片点击可在新窗口打开查看此主题相关图片如下：123.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/7/30 16:20:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（Bin）http://www.foxtable.com/help/topics/1...  发帖心情 Post By：2014/7/30 17:44:00 [只看该作者]

代码已修正如下
红色部分代码运行时候报错：
.NET Framework 版本：2.0.50727.4984
Foxtable 版本：2014.7.26.1
错误所在事件：窗口,卷宗封面,Button3,Click
详细错误信息：
The added item already has the owner.

代码如下
Dim doc As New PrintDoc '定义一个报表
Dim rx As prt.RenderText '定义一个文本对象


Dim rm As prt.RenderImage '定义一个图形队形
Dim Currow As Row
Dim tbl As Table = Tables("卷宗封面")
For i As Integer = tbl.TopRow To tbl.BottomRow
    CurRow = tbl.rows(i)
    
    Dim rep As New prt.RenderEmpty '定义一个新的空对象
    rep.BreakBefore = prt.BreakEnum.Page '打印前换页
    doc.Body.Children.Add(rep ) '加入到报表中
    
    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 = 76
    rx.x = 36
    doc.body.Children.Add(rx)
    
    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)
    
    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 = 113
    rx.x = 43
    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = CurRow("人员类别")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Left '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("仿宋", 20, FontStyle.Bold)
    'rx.Style.FontBold = True '字体加粗
    rx.y = 130
    rx.x = 35
    doc.body.Children.Add(rx)
    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 = 128
    rx.x = 43
    doc.body.Children.Add(rx)
    
    
    
    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 = 146
    rx.x = 43
    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = CurRow("处理结果")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    'rx.Style.FontBold = True '字体加粗
    rx.y = 160
    rx.x = 20
    
    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = Format(CurRow("收案时期"), "yyyy")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 205
    rx.x = -8
    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = Format(CurRow("收案时期"), "mm")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 202
    rx.x = 6
    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = Format(CurRow("收案时期"), "dd")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 202
    rx.x = 18
    doc.body.Children.Add(rx)
    
    rx = new prt.RenderText
    rx.Text = Format(CurRow("结案日期"),"yyyy")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 202
    rx.x = 70
    doc.body.Children.Add(rx)

    'rx.Text = Format(CurRow("结案日期"),"mm")
    'rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    'rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    'rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    'rx.y = 205
    'rx.x = 80
    'doc.body.Children.Add(rx)
'
    'rx.Text = Format(CurRow("结案日期"),"dd")
    'rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    'rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    'rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    'rx.y = 205
    'rx.x = 85
    'doc.body.Children.Add(rx)
   
    rx = new prt.RenderText
    rx.Text = CurRow("共卷")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 221
    rx.x = -4
    doc.body.Children.Add(rx)
    
    rx = new prt.RenderText
    rx.Text = CurRow("第几卷")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 220
    rx.x = 35
    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = CurRow("共页码")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 220
    rx.x = 75
    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = CurRow("承办人")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 238
    rx.x = -16
    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = CurRow("归档日期")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 238
    rx.x = 45
    doc.body.Children.Add(rx)
    rx = new prt.RenderText
    rx.Text = CurRow("保管期限")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 238
    rx.x = 95
    doc.body.Children.Add(rx)
    
    
Next
Doc.Preview() '预览报表
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/7/30 17:47:00 [只看该作者]

报什么错?

 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（Bin）报什么错?  发帖心情 Post By：2014/7/30 17:53:00 [只看该作者]

.NET Framework 版本：2.0.50727.4984
Foxtable 版本：2014.7.26.1
错误所在事件：窗口,卷宗封面,Button3,Click
详细错误信息：
The added item already has the owner.



图片点击可在新窗口打开查看此主题相关图片如下：呜呜呜呜.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/7/30 17:55:00 [只看该作者]

rx = new prt.RenderText
    rx.Text = Format(CurRow("结案日期"),"yyyy")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 202
    rx.x = 70
    doc.body.Children.Add(rx)

    'rx.Text = Format(CurRow("结案日期"),"mm")
    'rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    'rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    'rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    'rx.y = 205
    'rx.x = 80
    'doc.body.Children.Add(rx)

你上面加了一次怎么可以又加一次呢

rx = new prt.RenderText
    rx.Text = Format(CurRow("结案日期"),"yyyy")
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    rx.y = 202
    rx.x = 70
    doc.body.Children.Add(rx)  去掉

    'rx.Text = Format(CurRow("结案日期"),"mm")
    'rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    'rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    'rx.Style.Font = New Font("黑体", 15, FontStyle.Bold)
    'rx.y = 205
    'rx.x = 80
    'doc.body.Children.Add(rx)
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（Bin）rx = new prt.RenderText    ...  发帖心情 Post By：2014/7/30 18:02:00 [只看该作者]

去掉之后 不显示准确
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:卷宗.rar
月份也显示正确 

图片点击可在新窗口打开查看此主题相关图片如下：我完完全全.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/30 18:06:00 [只看该作者]

rx.Text = Format(CurRow("收案时期"), "mm")

 

改成

 

rx.Text = Format(CurRow("收案时期"), "MM")
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜）rx.Text = Format(CurRow("收案时期"...  发帖心情 Post By：2014/7/30 18:24:00 [只看该作者]

这个错误还是依旧  在命令窗口中现在显示为

图片点击可在新窗口打开查看此主题相关图片如下：1212121.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/30 19:07:00 [只看该作者]

 回复9楼，错误的意思是，同一个控件，不能添加多次。

 

 添加完 doc.body.Children(rx) 以后，记得要重新生成一个控件

 

 rx = new prt.RenderText
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 6 次数据查询