Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:不同页码设置不同的水印

1楼
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() 
'预览


老师,这个水印可以设置不容的页码用不同的水印不?
2楼
有点蓝 发表于:2024/5/28 15:24:00
不能的,
3楼
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编辑过]
4楼
有点蓝 发表于:2024/5/28 16:12:00
如果是自己做分页的就可以,比如:http://www.foxtable.com/webhelp/topics/2408.htm,否则无法知道打印的是哪一页
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.