- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]不急，专业报表 水印，如何设置在图片之上？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95626)
-- 发布时间：2017/1/26 10:25:00
-- [求助]不急，专业报表 水印，如何设置在图片之上？
今天值班，无事看看，专业报表的水印，被图片遮住了，如何设置在图片之上？
此主题相关图片如下：专业报表.png
Dim s As String = "d:\\test.jpg"
Dim doc As New PrintDoc \'定义一个报表
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Image = getImage(s)
rm.Width = "100%Parent" \'设置图片尺寸为容器(页面)尺寸
rm.Height = "100%Parent"
rm.Style.ImageAlign.KeepAspectRatio = True \' 保持图片原始纵横比例
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center \'居中显示
doc.Body.Children.Add(rm) \'将图片对象加入报表
\'\'\'\'\'\'=====设置水印========
Dim rt As prt.RenderText \'定义一个文本对象
rt = New prt.RenderText \'设置文本对象的内容
rt.Text = "Hello FoxTable" \'设置文本内容
rt.Width = "Parent.Width" \'宽度等于页面宽度
rt.Style.TextAngle = 45 \'旋转45度
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中对齐
rt.Style.TextAlignVert = prt.AlignVertEnum.Bottom \'垂直下对齐
rt.Style.Font = New font("方正行楷_GBK",20)
rt.Style.TextColor = Color.Crimson \' LightGray \'文本颜色为浅灰色
Doc.WaterMark = rt \'作为水
doc.Preview() \'预览
-- 发布时间：2017/1/26 15:41:00
--
这个是正常的，水印都是最底层的对象，如果文字足够大，一样会把水印遮住的。
如果说放到顶层，又会把内容遮住了。
-- 发布时间：2017/1/26 16:57:00
--
如何放到顶层呢？我试一试！
[此贴子已经被作者于2017/1/26 17:21:51编辑过]
-- 发布时间：2017/2/2 10:58:00
--
不要用水印了，直接控制图片的坐标吧。
rt.x = 0
rt.y = 0
\'Doc.WaterMark = rt \'作为水
Doc.Body.Children.add(rt)