以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  文字型的打印对象设置的水印,如何加上方框?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139510)

--  作者:edisontsui
--  发布时间:2019/8/14 14:23:00
--  文字型的打印对象设置的水印,如何加上方框?
我有一个文字型的打印对象,将其设置成水印时,如何加上方框(把文字框住)?谢谢。
--  作者:有点蓝
--  发布时间:2019/8/14 14:35:00
--  
参考:http://www.foxtable.com/webhelp/topics/1169.htm
--  作者:edisontsui
--  发布时间: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物料水印”,请问上述代码如何引用此图形档案?如何实现图案的旋转?谢谢。

--  作者:有点蓝
--  发布时间:2019/8/14 17:05:00
--  
Dim doc As New PrintDoc \'定义一个报表对象
Dim rg As New prt.Rendergraphics \'设置文本对象的内容
rg.Width = 100 \'设置对象宽度mm
rg.height = 100 \'设置对象宽度mm
rg.X = 10 \'指定水平位置
rg.y = 50 \'指定垂直位置
rg.Graphics.TranslateTransform(0, 80)
rg.Graphics.RotateTransform(-45)
rg.Graphics.DrawImage(getImage("e:\\bai.gif"),0,0)
Doc.WaterMark = rg \'作为水印使用
Doc.Preview() \'预览

--  作者:edisontsui
--  发布时间: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 \'作为水印使用
我用上述代码做了水印了,但是实现不了水印旋转的问题。特此请教。谢谢。

--  作者:有点蓝
--  发布时间:2019/8/14 17:22:00
--  
这种无法旋转
--  作者:edisontsui
--  发布时间:2019/8/15 8:15:00
--  
请问 TranslateTransform(0, 80) 里面的数字是什么意思?
--  作者:有点蓝
--  发布时间:2019/8/15 8:38:00
--  
学会利用万能的网络:https://blog.csdn.net/qianlinjun/article/details/65034430
--  作者:edisontsui
--  发布时间: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

--  作者:有点蓝
--  发布时间:2019/8/15 8:42:00
--  
错误所在事件:Excel报表,AfterBuild,检查这里的代码