‘添加多图片水印
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() '预览
加好友 
发短信
Post By：2020/11/19 18:04:00 [显示全部帖子]
