Foxtable(狐表) → 用户栏目 → 专家坐堂 → 水印效果


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

主题：水印效果
帅哥哟，离线，有人找我吗？
zoyong
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00 		水印效果  发帖心情 Post By：2016/9/8 11:34:00 [只看该作者]

求高手帮我把下面两段代码合并

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() '显示报表


图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图16年09月08日1129_2.png
图片点击可在新窗口打开查看


'水印代码
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() '预览

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图16年09月08日1129_1.png
图片点击可在新窗口打开查看


帮忙将上面的两段代码合并在     效果如下图：

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图16年09月08日1129_21.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/9/10 8:48:34编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/8 17:52:00 [只看该作者]

用word vba操作

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("f:\123.doc")
    With doc
        .Activate
        app.WordBasic.RemoveWatermark  '删除旧的水印
        For Each oSec As object In doc.Sections    '文档的节中循环
            Dim myRange = oSec.Headers(MSWord.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
            myRange.Delete    '删除页眉中的内容
        Next
        .Sections(1).Range.Select
        app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader '插入水印前需更改视图样式为页眉视图
        Dim i As Integer
        For i = 1 To 3
            '设置插入水印,语法:表达式.AddTextEffect(预设文字效果, 文字内容, 字体名, 字体大小, 是否粗体, 是否斜体, 左侧位置, 顶部位置)
            app.Selection.HeaderFooter.Shapes.AddTextEffect(10, "Foxtable 2016 ","宋体", 36, False, False, 0,i*200).Select
        Next
        app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument '恢复视图样式到原来样式
    End With
    doc.save
    app.quit
catch ex As exception
    app.quit
    msgbox(ex.message)
End try
[此贴子已经被作者于2016/9/8 18:00:48编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询