Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文字型的打印对象设置的水印，如何加上方框？


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

主题：文字型的打印对象设置的水印，如何加上方框？
帅哥哟，离线，有人找我吗？
edisontsui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1510 积分：9791 威望：0 精华：0 注册：2014/12/18 16:12:00 		文字型的打印对象设置的水印，如何加上方框？  发帖心情 Post By：2019/8/14 14:23:00 [显示全部帖子]

我有一个文字型的打印对象，将其设置成水印时，如何加上方框（把文字框住）？谢谢。

 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1510 积分：9791 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/8/14 16:22:00 [显示全部帖子]

上述方法似乎达不到我要的效果，现我改用图形来做水印，代码如下：

                rg = New prt.Rendergraphics '设置文本对象的内容
                rg.Width = 35 '设置对象宽度mm
                rg.height = 20 '设置对象宽度mm
                rg.X = 130 '指定水平位置
                rg.y = 280 '指定垂直位置
                Doc.WaterMark = rg '作为水印使用

我在项目的 image 目录下面有一个图形档案“JIT物料水印”，请问上述代码如何引用此图形档案？如何实现图案的旋转？谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1510 积分：9791 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/8/14 17:20:00 [显示全部帖子]

                rm = New prt.Renderimage '设置图形对象
                rm.Image = GetImage("JIT物料水印.JPG") '引用图片
                rm.Width = 35 '设置对象宽度mm
                rm.height = 20 '设置对象宽度mm
                rm.X = 130 '指定水平位置
                rm.y = 280 '指定垂直位置
                Doc.WaterMark = rm '作为水印使用
我用上述代码做了水印了，但是实现不了水印旋转的问题。特此请教。谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1510 积分：9791 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/8/15 8:15:00 [显示全部帖子]

请问 TranslateTransform(0, 80) 里面的数字是什么意思？

 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1510 积分：9791 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/8/15 8:41:00 [显示全部帖子]

rg = New prt.Rendergraphics '设置文本对象的内容
rg.Width = 37 '设置对象宽度mm
rg.height = 22 '设置对象宽度mm
rg.X = 130 '指定水平位置
rg.y = 250 '指定垂直位置
rg.Graphics.TranslateTransform(0, 80)
rg.Graphics.RotateTransform(-15)
rg.Graphics.DrawImage(getImage("F:\Boson\弧表\Since20161026\Foxtable项目\生产运作\Images\JIT物料水印.jpg"),0,0)
Doc.WaterMark = rg '作为水印使用

上述代码老是出现下述错误，请问是什么问题？

.NET Framework 版本：2.0.50727.8806
Foxtable 版本：2017.3.18.1
错误所在事件：Excel报表,AfterBuild
详细错误信息：
值不能为空。
参数名: image
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1510 积分：9791 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/8/15 9:56:00 [显示全部帖子]

上述代码的前文还有如下代码，是否这些代码有影响，怎么修改？

Dim img As prt.RenderImage
img = new prt.RenderImage
img.Image = bar.GetImage

Dim rg As prt.Rendergraphics 
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1510 积分：9791 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/8/15 10:48:00 [显示全部帖子]

rg = New prt.Rendergraphics '设置文本对象的内容
rg.Width = 37 '设置对象宽度mm
rg.height = 22 '设置对象宽度mm
rg.X = 130 '指定水平位置
rg.y = 250 '指定垂直位置
rg.Graphics.TranslateTransform(0, 80)
rg.Graphics.RotateTransform(-15)
rg.Graphics.DrawImage(getImage("JIT物料水印.jpg"),0,0)
Doc.WaterMark = rg '作为水印使用

是上面红色那句的问题，我删除掉图形档案的目录名称就可以了。但是还是有一个问题，那就是出来的水印被下面一行遮住了，这要怎么处理？

图片点击可在新窗口打开查看此主题相关图片如下：水印被遮住.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1510 积分：9791 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/8/16 8:31:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:水印代码问题.rar

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:水印问题.rar
请参考2个附件。这段代码，我的目的是要在每页纸出现2个水印，上半页一个，下半页一个，都是在“条数核对”的右边。但是，现在只能够打印出一个水印（即下半页那个），如果我把下半页的水印代码注释掉了，那么上半页那个水印就可以打印出来。请教这是哪里的问题？谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1510 积分：9791 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/8/17 13:29:00 [显示全部帖子]

谢谢。解决问题了。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 6 次数据查询