Foxtable(狐表) → 用户栏目 → 专家坐堂 → 电子章


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

主题：电子章
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		电子章  发帖心情 Post By：2018/5/16 15:02:00 [只看该作者]


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

Dim tb As Table=Tables("县区_table1")
tb.sort="xxmc,bjdm"
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 82 '纸张宽度为100毫米
doc.PageSetting.Height = 124 '纸张高度为120毫米
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Doc.PageSetting.leftMargin = 0
Doc.PageSetting.rightMargin = 0
Doc.PageSetting.TopMargin  =0
Doc.PageSetting.BottomMargin  =0
'For Each r As Row In tb.Rows
 For i As Integer = tb.TopPosition To tb.BottomPosition

    Dim ra As New prt.RenderArea
    Dim rt As prt.RenderText
    ra.Width = 82 '宽度53毫米
    ra.Height = 125 '高度24毫米
    'ra.Style.Spacing.all = 5

ra.Style.Spacing.Top =6
ra.Style.Spacing.Bottom =4
ra.Style.Spacing.left =5.5
ra.Style.Spacing.right =5.5
    ra.Style.Borders.All = New prt.Linedef(0.1, Color.black) '设置边框
    ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
    Doc.Body.ChildRen.Add(ra) '将容器加入到报表中
    rt = New prt.RenderText
    rt.Text = "内江市2018年初中学业水平考试" & vbcrlf & "    暨高中阶段招生考试"
    rt.Style.Font=New Font("黑体", 8, FontStyle.Bold)
    rt.Y =2
    rt.x=2
    ra.Children.Add(rt) '添加到容器中
    rt = New prt.RenderText
    rt.Text = "  准  考  证"
    rt.Style.Font=New Font("黑体", 16, FontStyle.Bold)
    rt.Y =9
    rt.x=2
    ra.Children.Add(rt) '添加到容器中
    
    rt = New prt.RenderText
    rt.Text = "姓    名:" & tb.rows(i)("xm")
    rt.Style.Font=New Font("宋体", 11, FontStyle.Bold)
    rt.Y = 20
    rt.x=1
    ra.Children.Add(rt) '添加到容
    Dim Line As New prt.LineDef(0.2, Color.black)
    Dim ln As New prt.RenderLine(18,24, 45, 24, Line)
    ra.Children.Add(ln) '将线条加入到报表中
    
    
    
    rt = New prt.RenderText
    rt.Text = "中考考号:" & tb.rows(i)("ksh")
    rt.Style.Font=New Font("宋体", 11, FontStyle.Bold)
    rt.Y = 26
    rt.x=1
    ra.Children.Add(rt) '添加到容
    Line = New prt.LineDef(0.2, Color.black)
    ln = New prt.RenderLine(18,30, 45, 30, Line)
    ra.Children.Add(ln) '将线条加入到报表中
    
    rt = New prt.RenderText
    rt.Text = "中考考点:" & tb.rows(i)("kdxxdm")
    rt.Style.Font=New Font("宋体", 11, FontStyle.Bold)
    rt.Y = 32
    rt.x=1
    ra.Children.Add(rt) '添加到容
    Line = New prt.LineDef(0.2, Color.black)
    ln = New prt.RenderLine(18,36, 45, 36, Line)
    ra.Children.Add(ln) '将线条加入到报表中
    
    rt = New prt.RenderText
    rt.Text = "生地考号:" & tb.Rows(i)("生地考号")
    rt.Style.Font=New Font("宋体", 11, FontStyle.Bold)
    rt.Y = 39
    rt.x=1
    ra.Children.Add(rt) '添加到容
    Line = New prt.LineDef(0.2, Color.black)
    ln = New prt.RenderLine(18,43, 45, 43, Line)
    ra.Children.Add(ln) '将线条加入到报表中
    
    rt = New prt.RenderText
    rt.Text = "生地考点:" & tb.Rows(i)("生地考点")
    rt.Style.Font=New Font("宋体", 11, FontStyle.Bold)
    rt.Y = 45
    rt.x=1
    ra.Children.Add(rt) '添加到容
    Line = New prt.LineDef(0.2, Color.black)
    ln = New prt.RenderLine(18,49, 45, 49, Line)
    ra.Children.Add(ln) '将线条加入到报表中
    
    
    
    
    
    
    
    
    Dim rg As prt.RenderGraphics
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.QRCodeErrorCorrectionLevel = Barpro.QRCodeErrorCorrectionLevel.m
    BAR.DisplayCode = False
    Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
    bar.Code = "http://118.118.191.35:800"
    Bar.Text = "扫码填志愿 "
    Bar.TextAlignment = Barpro.Alignment.BelowCenter
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.Style.Spacing.All = 0
    rg.x=47
    rg.y=40
    RG.Width=25
    ra.Children.Add(rg)
    
    
    Bar = New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.Code128
    BAR.DisplayCode = False
    Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
    bar.Code = tb.Rows(i)("bmh")
    Bar.Text = tb.Rows(i)("bmh")
    Bar.BarRatio = 3
    Bar.BarHeight = 10
    
    Bar.TextAlignment = Barpro.Alignment.BelowCenter
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.Style.Spacing.All = 0
    rg.x=6
    rg.y=50
    RG.Width=50
    ra.Children.Add(rg)
    
    rt = New prt.RenderText
    rt.Text = tb.Rows(i)("bjdm")
    rt.Style.Font=New Font("宋体", 6, FontStyle.Bold)
    rt.Y = 15
    rt.x=22
    ra.Children.Add(rt) '添加到容
    Dim rm As  New prt.RenderImage()
    rm.Style.ImageAlign.KeepAspectRatio= False
    rm.Image= GetImage(projectPath & "remotefiles" & tb.Rows(i)("相片"))
    rm.Width=25
    rm.Height=37
    rm.Y = 2
    rm.x=47
    ra.Children.Add(rm) '添加到容
    rm = New prt.RenderImage()
    rm.Style.ImageAlign.KeepAspectRatio= False
    rm.Image= GetImage(projectPath & "attachments\" & "ap.png")
    rm.Width=71
    rm.Height=50
    rm.Y = 65
    rm.x=0
    ra.Children.Add(rm) '添加到
Next
Doc.Preview() '预览报表


老师，现在的想法是在相片上盖一个电子公章如何可以实现？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

插入一个图片，然后地位图片的位置，即可

 

http://www.foxtable.com/webhelp/scr/1182.htm

 

http://www.foxtable.com/webhelp/scr/1177.htm

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


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/5/16 17:11:00 [只看该作者]

问题是这样章的图片会把下面全盖了，我要仅印上章的红色部分，其余部分要将下面的内容显示出来

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


加好友 发短信
等级：狐精 帖子：3205 积分：21299 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2018/5/16 17:24:00 [只看该作者]

你章的位置准备放哪儿，如果在照片上，用png格式图片删除图片背景色试试，如果在文字部分位置，设置图片在文字下方。

[此贴子已经被作者于2018/5/16 17:25:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用刘林在2018/5/16 17:11:00的发言：
问题是这样章的图片会把下面全盖了，我要仅印上章的红色部分，其余部分要将下面的内容显示出来

 

图片用gif或者png，背景要弄成透明的。不会做发实例上来测试。

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


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/5/16 23:01:00 [只看该作者]

还是这个问题，我测试了下面是个图片，上面用pnt图片章，设为秀明，但不能把下面的内容显示出来

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


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

以下是引用刘林在2018/5/16 23:01:00的发言：
还是这个问题，我测试了下面是个图片，上面用pnt图片章，设为秀明，但不能把下面的内容显示出来

 

我测试没问题，你的图片必须是背景透明的才行（图片本身背景透明）

 

Dim doc As New PrintDoc '定义一个报表对象
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("d:\test.ico") '设置图片
rm.x = 10
rm.y = 10
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不会做，请上传具体实例

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


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/5/17 17:09:00 [只看该作者]

Dim tb As Table=Tables("县区_table2")
tb.sort="学校名称,班级"
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 82 '纸张宽度为100毫米
doc.PageSetting.Height = 124 '纸张高度为120毫米
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Doc.PageSetting.leftMargin = 0
Doc.PageSetting.rightMargin = 0
Doc.PageSetting.TopMargin  =0
Doc.PageSetting.BottomMargin  =0
'For Each r As Row In tb.Rows
For i As Integer = tb.TopPosition To tb.BottomPosition
    
    Dim ra As New prt.RenderArea
    Dim rt As prt.RenderText
    ra.Width = 82 '宽度53毫米
    ra.Height = 125 '高度24毫米
    ra.Style.Spacing.Top =6
    ra.Style.Spacing.Bottom =4
    ra.Style.Spacing.left =5.5
    ra.Style.Spacing.right =5.5
    ra.Style.Borders.All = New prt.Linedef(0.1, Color.black) '设置边框
    ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
    Doc.Body.ChildRen.Add(ra) '将容器加入到报表中
    rt = New prt.RenderText
    rt.Text = "内江市2018年初中学业水平考试" & vbcrlf & "    暨高中阶段招生考试"
    rt.Style.Font=New Font("黑体", 8, FontStyle.Bold)
    rt.Y =2
    rt.x=2
    ra.Children.Add(rt) '添加到容器中
    rt = New prt.RenderText
    rt.Text = "  准  考  证"
    rt.Style.Font=New Font("黑体", 16, FontStyle.Bold)
    rt.Y =9
    rt.x=2
    ra.Children.Add(rt) '添加到容器中
    
    rt = New prt.RenderText
    rt.Text = "姓    名:" & tb.rows(i)("姓名")
    rt.Style.Font=New Font("宋体", 11, FontStyle.Bold)
    rt.Y = 20
    rt.x=1
    ra.Children.Add(rt) '添加到容
    Dim Line As New prt.LineDef(0.2, Color.black)
    Dim ln As New prt.RenderLine(18,24, 45, 24, Line)
    ra.Children.Add(ln) '将线条加入到报表中
    
    
    
    rt = New prt.RenderText
    rt.Text = "中考考号:" ' & tb.rows(i)("")
    rt.Style.Font=New Font("宋体", 11, FontStyle.Bold)
    rt.Y = 26
    rt.x=1
    ra.Children.Add(rt) '添加到容
    Line = New prt.LineDef(0.2, Color.black)
    ln = New prt.RenderLine(18,30, 45, 30, Line)
    ra.Children.Add(ln) '将线条加入到报表中
    
    rt = New prt.RenderText
    rt.Text = "中考考点:" ' & tb.rows(i)("kdxxdm")
    rt.Style.Font=New Font("宋体", 11, FontStyle.Bold)
    rt.Y = 32
    rt.x=1
    ra.Children.Add(rt) '添加到容
    Line = New prt.LineDef(0.2, Color.black)
    ln = New prt.RenderLine(18,36, 45, 36, Line)
    ra.Children.Add(ln) '将线条加入到报表中
    
    rt = New prt.RenderText
    rt.Text = "生地考号:" & tb.Rows(i)("考试号")
    rt.Style.Font=New Font("宋体", 11, FontStyle.Bold)
    rt.Y = 39
    rt.x=1
    ra.Children.Add(rt) '添加到容
    Line = New prt.LineDef(0.2, Color.black)
    ln = New prt.RenderLine(18,43, 45, 43, Line)
    ra.Children.Add(ln) '将线条加入到报表中
    
    rt = New prt.RenderText
    rt.Text = "生地考点:" & tb.Rows(i)("考点学校")
    rt.Style.Font=New Font("宋体", 11, FontStyle.Bold)
    rt.Y = 45
    rt.x=1
    ra.Children.Add(rt) '添加到容
    Line = New prt.LineDef(0.2, Color.black)
    ln = New prt.RenderLine(18,49, 45, 49, Line)
    ra.Children.Add(ln) '将线条加入到报表中    
    Dim rg As prt.RenderGraphics
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.QRCodeErrorCorrectionLevel = Barpro.QRCodeErrorCorrectionLevel.m
    BAR.DisplayCode = False
    Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
    bar.Code = "http://118.118.191.35:800"
    Bar.Text = "扫码填志愿 "
    Bar.TextAlignment = Barpro.Alignment.BelowCenter
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.Style.Spacing.All = 0
    rg.x=47
    rg.y=40
    RG.Width=25
    ra.Children.Add(rg)
    Bar = New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.Code128
    BAR.DisplayCode = False
    Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
    bar.Code = tb.Rows(i)("报名号")
    Bar.Text = tb.Rows(i)("报名号")
    Bar.BarRatio = 3
    Bar.BarHeight = 10
    Bar.TextAlignment = Barpro.Alignment.BelowCenter
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.Style.Spacing.All = 0
    rg.x=6
    rg.y=50
    RG.Width=50
    ra.Children.Add(rg)
    rt = New prt.RenderText
    rt.Text = tb.Rows(i)("班级")
    rt.Style.Font=New Font("宋体", 6, FontStyle.Bold)
    rt.Y = 15
    rt.x=22
    ra.Children.Add(rt) '添加到容
    Dim rm As  New prt.RenderImage()
    rm.Style.ImageAlign.KeepAspectRatio= False
    rm.Image= GetImage(projectPath & "remotefiles" & tb.Rows(i)("相片"))
    rm.Width=25
    rm.Height=37
    rm.Y = 2
    rm.x=47
    ra.Children.Add(rm) '添加到容
    rm = New prt.RenderImage()
    rm.Style.ImageAlign.KeepAspectRatio= False
    rm.Image= GetImage(projectPath & "attachments\" & "ap.png")
    rm.Width=71
    rm.Height=50
    rm.Y = 65
    rm.x=0
    ra.Children.Add(rm) '添加到
    
    rm= New prt.RenderImage '定义一个图片对象
    rm.Image = GetImage(projectPath & "attachments\" & "gz.png") '设置图片
    rm.x = 39
    rm.y = 30
    rm.width=40
    rm.Height=40
    'rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
    rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
    ra.Children.Add(rm)
Next
Doc.Preview() '预览报表

老师，为什么当多选几条记录打印时，章就不显示，而一条就要显
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

看了下代码，代码不应该有问题的，每一个印章图片都是添加在ra里面的，有多少行，就会有多少个ra，就会添加多少张图片的。

 

请做个例子发上来测试。

 

 
 回到顶部
总数 12 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.06250 秒, 4 次数据查询