- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 【已解决】[求助]怎样才能把图片加入水印里面？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158424)
-- 发布时间：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编辑过]
-- 发布时间：2020/11/19 20:14:00
--
去掉
doc.Body.Children.Add(rm)
-- 发布时间：2020/11/20 10:27:00
--
整个页面都变成了水印，原来打印的东西都没了
-- 发布时间：2020/11/20 11:02:00
--
测试没有问题，请上传实例说明
-- 发布时间：2020/11/21 11:06:00
--
代码如下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:打印代码.txt |
-- 发布时间：2020/11/21 11:42:00
--
这句不要注释去掉
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
-- 发布时间：2020/11/21 21:06:00
--
如果我要插入两张图片呢？
-- 发布时间：2020/11/22 20:18:00
--
使用容器：http://www.foxtable.com/webhelp/topics/1185.htm
多个图片放入容器里
-- 发布时间：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() \'预览