Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不同页码设置不同的水印


  共有1576人关注过本帖树形打印复制链接

主题：不同页码设置不同的水印
帅哥哟，离线，有人找我吗？
lxhmax
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：5699 威望：0 精华：0 注册：2012/8/2 19:04:00 		不同页码设置不同的水印  发帖心情 Post By：2024/5/28 15:16:00 [显示全部帖子]

Dim doc As New PrintDoc '定义一个报表
Dim rt As prt.RenderText '定义一个文本对象

'设置水印
rt = New prt.RenderText '设置文本对象的内容
rt.Text = "Foxtable" '设置文本内容
rt.Width = "Parent.Width" '宽度等于页面宽度
rt.Height = "Parent.Height" '高度等于页面高度
rt.Style.TextAngle = 45 '旋转45度
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中对齐
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中对齐
rt.Style.FontSize = 72 '字体大小为8磅
rt.Style.TextColor = Color.Gray '文本颜色为灰色
Doc.WaterMark = rt '作为水印使用
doc.Preview() '预览


老师,这个水印可以设置不容的页码用不同的水印不?
 回到顶部
帅哥哟，离线，有人找我吗？
lxhmax
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：5699 威望：0 精华：0 注册：2012/8/2 19:04:00 		  发帖心情 Post By：2024/5/28 15:27:00 [显示全部帖子]

If 1=1 Then
    Dim a As New prt.RenderArea '定义一个容器
    a.Height = 40 : a.Width = 40
    a.X = 130 :   a.Y = 147
    Dim yinzhang As New prt.RenderImage  '印章
    yinzhang.Image = GetImage(ProjectPath & "印章.png")  '自己换印章图像
    yinzhang.Height = 40
    a.Children.Add(yinzhang)   '将印章加入到签名
    doc.Body.Children.Add(a) '将容器ra加入到报表
End If

老师,这个容器可以指定的放到第几页不?
[此贴子已经被作者于2024/5/28 15:46:04编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.14941 秒, 5 次数据查询