- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 在这个地方要加一个背景图片，怎么弄？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70088)
-- 发布时间：2015/6/15 17:37:00
-- 在这个地方要加一个背景图片，怎么弄？
此主题相关图片如下：qq截图20150615173536.png
在这个地方要加一个背景图片，怎么弄？
-- 发布时间：2015/6/15 17:37:00
--
那个地方?
-- 发布时间：2015/6/15 17:38:00
--
在准考证整个下面加一个背景图！
-- 发布时间：2015/6/15 17:42:00
--
不明白你什么意思。
-- 发布时间：2015/6/15 17:43:00
--
稍微修改一下就可以了
Dim doc As New PrintDoc \'定义一个报表
Dim rt As prt.RenderText \'定义一个文本对象
Dim s As String \'定义字符变量
s = "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
s = s & "危急时刻,中共中央总书记?国家主席?中央军委主席胡涛乘飞机赶往四川"
s = s & "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵?公"
s = s & "安民警和医护人员,指导抗震救灾工作."
For i As Integer = 1 To 20
rt = New prt.RenderText
rt.Text = s \'设置文本对象的内容
rt.Style.TextIndent = 9 \'首行缩进9毫米
rt.Style.Spacing.Top = 5 \'每段间隔5毫米
rt.Style.LineSpacing = 150 \'1.5倍行距
doc.Body.Children.Add(rt) \'将文本对象加入到报表
Next
\'设置水印
Dim rm As New prt.RenderImage() \'定义一个图片对象
rm.Image = GetImage("C:\\Users\\newpoc\\Desktop\\QQ截图20150604112812.png") \'请改为实际的图标名称和路径
Doc.WaterMark = rm \'作为水印使用
doc.Preview() \'预览
这是我基于帮助修改的.你把文字水印改为图片即可
-- 发布时间：2015/6/15 18:32:00
--
再这张准考证的整个下面！
-- 发布时间：2015/6/15 18:32:00
--
表内的位置！
-- 发布时间：2015/6/15 18:39:00
--
已经说了
http://www.foxtable.com/help/index.html?n=1198.htm
加其他的不太好看
[此贴子已经被作者于2015/6/15 18:40:50编辑过]
-- 发布时间：2015/6/15 20:23:00
--
以下是引用zgjmost在2015/6/15 18:32:00的发言：
表内的位置！
表内的位置！
做不到。
你的水印的内容，做两条文字提示不就好了，水印内容你可以自定义的。别问怎么自定义，自己看专业报表去。
-- 发布时间：2015/6/16 7:54:00
--
嫦娥报表，效果如何？
此主题相关图片如下：准考证.jpg
[此贴子已经被作者于2015/6/16 7:58:13编辑过]