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


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

主题：文件套打中如何定义字体类型 大小及居中
帅哥哟，离线，有人找我吗？
李孝春
 小大  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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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() '预览报表
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） 回复9楼，错误的意思是，同一个...  发帖心情 Post By：2014/7/30 22:33:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） 自己的问题 Dim Doc ...  发帖心情 Post By：2014/7/31 10:01:00 [显示全部帖子]

呵呵  我采用了【】代替[]可以显示

但是新问题出现   如何让红线部分字内容自动居中  而不超出页边距  也就是指定一个打印范围 只能在这个范围内显示这个字段的内容  且居中


图片点击可在新窗口打开查看此主题相关图片如下：222222.jpg
图片点击可在新窗口打开查看

代码如下：
如何让红线部分字内容自动居中  而不超出页边距  
代码：
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 = 160
    rx.x = 50
    doc.body.Children.Add(rx)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 7 次数据查询