今天值班，无事看看，专业报表的水印，被图片遮住了，如何设置在图片之上？
此主题相关图片如下：专业报表.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() '预览
加好友 
发短信
Post By：2017/1/26 10:25:00 [只看该作者]
