Foxtable(狐表)用户栏目专家坐堂 → 【已解决】[求助]怎样才能把图片加入水印里面?


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

主题:【已解决】[求助]怎样才能把图片加入水印里面?

帅哥哟,离线,有人找我吗?
zto001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
【已解决】[求助]怎样才能把图片加入水印里面?  发帖心情 Post By:2020/11/19 18:04:00 [只看该作者]

'【水印图片设置】
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("登录 (1).png") '设置图片
'rm.Width = "Parent.Width" '宽度等于页面宽度
'rm.Height = "Auto" '高度由图片大小自动决定
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
 Doc.WaterMark = rm '作为水印使用
 ' doc.Body.Children.Add(rm) '将表格对象加入到报表中
doc.Body.Children.Add(rm) '将图片对象加入报表


我这样写出错
[此贴子已经被作者于2020/11/22 22:31:07编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/19 20:14:00 [只看该作者]

去掉
doc.Body.Children.Add(rm) 

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/11/20 10:27:00 [只看该作者]

整个页面都变成了水印,原来打印的东西都没了

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/20 11:02:00 [只看该作者]

测试没有问题,请上传实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/11/21 11:06:00 [只看该作者]

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


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/21 11:42:00 [只看该作者]

这句不要注释去掉

doc.Body.Children.Add(rt) '将表格对象加入到报表中

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/11/21 21:06:00 [只看该作者]

如果我要插入两张图片呢?


 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/22 20:18:00 [只看该作者]

使用容器:http://www.foxtable.com/webhelp/topics/1185.htm

多个图片放入容器里

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/11/22 22:31:00 [只看该作者]

‘添加多图片水印
Dim doc As New PrintDoc '定义一个报表
Dim rt As prt.RenderText '定义一个文本对象
Dim s As String '定义字符变量
s = "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
s = s & "危急时刻,中共中央总书记?国家主席?中央军委主席乘飞机赶往四川"
s = s & "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵?公"
s = s & "安民警和医护人员,指导抗震救灾工作."
For i As Integer = 1 To 20
    rt = New prt.RenderText
    rt.Text = s '设置文本对象的内容
    rt.Style.TextIndent = 9 '首行缩进9毫米
    rt.Style.Spacing.Top = 5 '每段间隔5毫米
    rt.Style.LineSpacing = 150 '1.5倍行距
    doc.Body.Children.Add(rt) '将文本对象加入到报表
Next


Dim ra As New prt.RenderArea '定义一个容器
'【水印图片设置】
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("面单标识\实名.png") '设置图片
rm.Width = 15 '设置尺寸
rm.Height = 15
rm.Style.ImageAlign.KeepAspectRatio= True '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
Dim rm0 As New prt.RenderImage '定义一个图片对象
rm0.Image = GetImage("面单标识\实名.png") '设置图片
rm0.Width = 15 '设置尺寸
rm0.Height = 15
rm0.Style.ImageAlign.KeepAspectRatio= True '禁止图片水平拉伸
rm0.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
ra.x=100
ra.y=100

ra.Children.Add(rm0)
ra.Children.Add(rm)
Doc.WaterMark = ra '作为水印使用
doc.Preview() '预览


 回到顶部