- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求高手帮忙将下面的两段代码合并 水印 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91341)
-- 发布时间：2016/10/8 21:01:00
-- 求高手帮忙将下面的两段代码合并 水印
两段代码生成的图片
此主题相关图片如下：1.png
此主题相关图片如下：0.png
合并后的效果
此主题相关图片如下：2.png
求高手帮忙将下面的两段代码合并，我测试N次就是没成功，急死人了
代码1： 根据模板生成介绍信
Dim tm As String = ProjectPath & "Attachments\\介绍信.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\介绍信.doc" \'指定目标文件
\'Dim rt As prt.RenderText \'定义一个文本对象
Dim wrt As New WordReport(Tables("介绍信管理"),tm,fl) \'定义一个WordReport
For Each r As Row In Tables("介绍信管理").Rows \'逐行生成报表
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
wrt.BuildOne(r)
Next
wrt.Show() \'显示报表
代码2： 加入水印代码
Dim doc As New PrintDoc() \'定义一个报表
Dim rt As prt.RenderText \'定义一个文本对象
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式
For i As Integer = 0 To 14
rt = New prt.RenderText() \'创建文本对象
rt.Text = "XXXX建设工程有限公司 " & Date.Now \'设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rt.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
rt.Style.TextColor = Color.plum \'设置文本颜色
rt.Width = 53 \'宽度为39毫米
rt.Height = 48 \'宽度为35毫米
rt.Style.Spacing.All = 2 \'设置各个方向的间隔
rt.Style.TextAngle = 25 \'顺时钟旋转45度
doc.Body.Children.Add(rt) \'将文本对象加入到报表
Next
doc.Preview() \'预览
将水印加入到模板中…… 最终效果如下
此主题相关图片如下：2.png-- 发布时间：2016/10/9 12:26:00
--
1、不能用word模板，把内容打印到专业报表中，参考
Dim doc As New PrintDoc() \'定义一个报表
Dim rt1 As prt.RenderText \'定义一个文本对象
Dim s As String = "介绍信存根" & vbcrlf
s &= "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
s = s & "危急时刻,中共中央总书记?国家主席?中央军委主席乘飞机赶往四川"
s = s & "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵?公"
s = s & "安民警和医护人员,指导抗震救灾工作."
rt1= New prt.RenderText
rt1.Text = s \'设置文本对象的内容
rt1.Style.TextIndent = 9 \'首行缩进9毫米
rt1.Style.Spacing.Top = 5 \'每段间隔5毫米
rt1.Style.LineSpacing = 150 \'1.5倍行距
doc.Body.Children.Add(rt1) \'将文本对象加入到报表
Dim wra As new prt.RenderArea
Dim rt As New prt.RenderTable() \'定义一个表格对象
wra.y = 10
wra.x = 10
wra.Children.Add(rt) \'将表格对象加入到报表中
\'下面的代码向表格中填入值
For r As Integer = 0 To 4
For c As Integer = 0 To 2
Dim rx As New prt.RenderText \'定义一个文本对象
rx.Text = "XXXX建设工程有限公司 " & Date.Now \'设置文本对象的内容
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rx.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
rx.Style.TextColor = Color.plum \'设置文本颜色
rx.Width = 53 \'宽度为39毫米
rx.Height = 48 \'宽度为35毫米
rx.Style.Spacing.All = 2 \'设置各个方向的间隔
rx.Style.TextAngle = 25 \'顺时钟旋转45度
rt.Cells(r, c).RenderObject = rx \'将文本对象放置在单元格中
Next
Next
doc.Body.Children.Add(wra)
doc.Preview() \'预览
-- 发布时间：2016/10/9 12:28:00
--
2、在word中添加水印，参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=623146&ID=90243&skin=1