我想打印预览时，在图片上加水印，看了帮助，只有文件加水印，或复杂的图文打印，达不到想要的效果，请大家帮忙。
此主题相关图片如下：捕获2.png
此主题相关图片如下：捕获.png
想把以上2种合并。
现有代码如下：
Dim doc As New PrintDoc '定义一个报表对象Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = e.Form.Controls("PictureBox1").image
rm.Width = "Parent.Width" '宽度等于页面宽度
rm.Height = "Auto" '高度由图片大小自动决定
'设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表
'水印代码
Dim rt As prt.RenderText '定义一个文本对象
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
For i As Integer = 0 To 17
rt = New prt.RenderText() '创建文本对象
rt.Text = "禁止复印" & Date.Now & User.Name & "光洋(无锡)密封科技有限公司" '设置文本对象的内容
'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
''rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt.Style.TextColor = Color.plum '设置文本颜色
rt.Width = 53 '宽度为39毫米
rt.Height = 48 '宽度为35毫米
rt.Style.Spacing.All = 5 '设置各个方向的间隔
rt.Style.TextAngle = 25 '顺时钟旋转45度
doc.Body.Children.Add(rt) '将文本对象加入到报表
Next
doc.Preview() '预览
现在只能这样。
此主题相关图片如下：捕获3.png
加好友 
发短信
Post By：2016/9/23 10:14:00 [显示全部帖子]
