- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论] 图片加水印的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90863)
-- 发布时间：2016/9/23 10:14:00
-- [讨论] 图片加水印的问题
我想打印预览时，在图片上加水印，看了帮助，只有文件加水印，或复杂的图文打印，达不到想要的效果，请大家帮忙。
此主题相关图片如下：捕获2.png
此主题相关图片如下：捕获.png
想把以上2种合并。
现有代码如下：
Dim doc As New PrintDoc \'定义一个报表对象
此主题相关图片如下：捕获3.png
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-- 发布时间：2016/9/23 10:37:00
--
这里没有办法给图片加水印的。