以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  不同页码设置不同的水印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192089)

--  作者：lxhmax --  发布时间：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() \'预览 老师,这个水印可以设置不容的页码用不同的水印不?

--  作者：有点蓝 --  发布时间：2024/5/28 15:24:00 --   不能的，

--  作者：lxhmax --  发布时间：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编辑过]

--  作者：有点蓝 --  发布时间：2024/5/28 16:12:00 --   如果是自己做分页的就可以，比如：http://www.foxtable.com/webhelp/topics/2408.htm，否则无法知道打印的是哪一页