- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 准考证打印的最后三个细节问题没解决！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70137)
-- 发布时间：2015/6/16 14:48:00
-- 准考证打印的最后三个细节问题没解决！
首先要感谢狐表的导师，专家，特别是大红袍和BIN两位导师专家的指导。由于我不是计算机专业毕业，这个软件又很急。所以给两位老师添了很多麻烦！
当初私人花一万多买了狐表,确实心疼了很长时间，现在看来很值得，您们的团队很强！
准考证还有最后三个细节问题，我中午弄半天没弄出来。
一是我没全勾选，也能打印全部的证件。不知在哪加一个条件？
此主题相关图片如下：准考证没全选也能打全部.png
二是水印条数怎么无效？
此主题相关图片如下：水印条数无效.png
三是我想水印的文字只在准考证内显示，因为一张A4的排两张准考证，文字的水印只在各自的准考证内显示，而不跑到外面去。
加外我想在每个准考证内加一个背景图案，不知在哪加代码？
此主题相关图片如下：加水印的问题.png
实例如下：
-- 发布时间：2015/6/16 14:49:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:国家开放大学考务系统准考证打印最个三个细节问题.rar |
-- 发布时间：2015/6/16 14:49:00
--
文件例子发上来
-- 发布时间：2015/6/16 14:54:00
--
还要特别感谢程兴刚老师，他虽然很忙，但当初在万忙中跟我写了这个准考证打印程序，一来使我知道除了有FOXPRO，SQL等，中国也有这么经典的软件！谢谢！
我建议狐表加强推广工作，特别是在大学内开设这门课程。
也谢谢狐表爸爸推出这个系列讲解视频，我正在抽时间学习！
-- 发布时间：2015/6/16 15:04:00
--
与高校合作确是一种方法！
-- 发布时间：2015/6/16 15:52:00
--
红色代码，自己调整
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Image = GetImage("d:\\001.ico") \'设置图片
rm.y = 10
rm.x = 0
ra.Children.Add(rm) \'将图片对象加入
If getConfigValue("启用水印",True) = True
s = Nothing
Dim wra As new prt.RenderArea
rx = New prt.RenderText \'设置文本对象的内容
For i As Integer = 1 To e.Form.Controls("水印数").Text
s = s & getConfigValue("学校名称","请先选择学校名称!") & vbcrlf & vbcrlf & vbcrlf
Next
s = s & "&&"
s = s .Replace(vbcrlf & vbcrlf & vbcrlf & "&&","")
rx.Text = s \'设置文本内容
\'rx.Width = "Parent.Width" \'宽度等于页面宽度
\'rx.Height = "Parent.Height" \'高度等于页面高度
rx.Style.TextAngle = 30 \'旋转45度
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中对齐
rx.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中对齐
rx.Style.FontSize = 20\'字体大小为8磅
rx.Style.TextColor = Color.Gray \'文本颜色为灰色
wra.y = 20
wra.x = 0
wra.Children.Add(rx)
ra.Children.add(wra) \'作为水印使用
End If
ra.Children.Add(rt) \'加入到容器中
Doc.Body.ChildRen.Add(ra) \'将容器加入到报表中
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:国家开放大学考务系统准考证打印最个三个细节问题.rar |