【已解决】[求助]怎样才能把图片加入水印里面？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'【水印图片设置】

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编辑过]

去掉

doc.Body.Children.Add(rm)

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

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

代码如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:打印代码.txt

这句不要注释去掉

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

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

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

多个图片放入容器里

‘添加多图片水印

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) '将文本对象加入到报表

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() '预览

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