Foxtable(狐表)用户栏目专家坐堂 → DrawCell


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

主题:DrawCell

帅哥哟,离线,有人找我吗?
有点甜
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/23 9:16:00 [只看该作者]

改成,比如

 

dt.LoadFilter = ""


 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2019/2/23 9:53:00 [只看该作者]

Dim rt As prt.RenderText '定义一个文本对象
Dim tm As String  = ProjectPath & "Attachments\工程内部协议基本情况表.docx" '指定模板文件
Dim fl As String = ProjectPath & "Reports\工程内部协议基本情况表.docx" '指定目标文件
Dim wrt As New WordReport(Tables("内部合同"),tm,fl) '定义一个WordReport

'设置水印
rt = New prt.RenderText '设置文本对象的内容
rt.Text = Tables("内部合同").Current("项目名称") '设置文本内容
rt.Width = "Parent.Width" '宽度等于页面宽度
rt.Height = "Parent.Height" '高度等于页面高度
rt.Style.TextAngle = 45 '旋转45度
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中对齐
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中对齐
rt.Style.FontSize = 72 '字体大小为8磅
rt.Style.TextColor = Color.Gray '文本颜色为灰色
wrt.WaterMark = rt '作为水印使用        ‘这行代码无效,帮忙看看

wrt.Build() '逐行生成报表
wrt.Show() '显示报表

 回到顶部
帅哥,在线噢!
有点蓝
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/23 10:11:00 [只看该作者]

WordReport是word报表,设置水印的用法是专业报表,不是一回事,不能放到一起使用!

word水印可以看看这个:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=90243,需要生成报表后再使用vba处理

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2019/2/23 10:46:00 [只看该作者]

Dim rt As prt.RenderText '定义一个文本对象
Dim tm As String  = ProjectPath & "Attachments\工程内部协议基本情况表.docx" '指定模板文件
Dim fl As String = ProjectPath & "Reports\工程内部协议基本情况表.docx" '指定目标文件

'设置水印
Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open(tm)
    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
        Dim nr As String = Tables("内部合同").Current("项目名称") & vbcrlf & Date.Now
        For i = 1 To 1      '水印数量
            '设置插入水印,语法:表达式.AddTextEffect(预设文字效果, 文字内容, 字体名, 字体大小, 是否粗体, 是否斜体, 左侧位置, 顶部位置)
            app.Selection.HeaderFooter.Shapes.AddTextEffect(10, nr,"宋体", 25, False, False, 100,i*200).Select         '水印如何居中
        Next
        app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument '恢复视图样式到原来样式
    End With
    doc.save
    app.quit
catch ex As exception
    app.quit
End try

'打开报表
Dim wrt As New WordReport(Tables("内部合同"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表



老师帮忙看看新问题
1.页眉中加内容        =Tables("内部合同").Current("项目名称")
2.水印如何上下左右居中

是不是用 app.AlignHorzEnum.Center 
[此贴子已经被作者于2019/2/23 10:48:32编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/23 11:09:00 [只看该作者]

1、
……
.Sections(1).Range.Select
        app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader '插入水印前需更改视图样式为页眉视图
doc.Sections(1).Headers(1).Range.Text = Tables("内部合同").Current("项目名称") 
        Dim i As Integer
        Dim nr As String = Tables("内部合同").Current("项目名称") & vbcrlf & Date.Now
        For i = 1 To 1      '水印数量
……

2、自己计算打印的宽度和高度,自行计算位置
    '设置插入水印,语法:表达式.AddTextEffect(预设文字效果, 文字内容, 字体名, 字体大小, 是否粗体, 是否斜体, 左侧位置, 顶部位置)
            app.Selection.HeaderFooter.Shapes.AddTextEffect(10, nr,"宋体", 25, False, False, 100,i*200).Select 

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2019/8/22 13:15:00 [只看该作者]

        For Each r As Row In Tables(eForm.name & "_table2").GetCheckedRows
            i=i+1
            If tz="" Then
                tz=cstr(r("用户帐号"))
                tzxm = cstr(r("用户帐号") & r("真实姓名"))
            Else
                tz=tz & "|" & cstr(r("用户帐号"))
                tzxm = cstr(r("用户帐号") & "|" & r("真实姓名"))
            End If
        Next

            Dim jo As New JObject
            jo("title") = sy   '通知标题
            jo("description") = s '通知内容
            'jo("Description") = ""   '图片
            jo("url") = Http_Server & "mobile/html/cgdd_info.html?_identify=" & r("_identify").Tostring '通知点开的连接
            Dim tzry As String = tz  '通知人员名单
            Dim rel As String = Functions.Execute("Http_SendMsg",tzry,jo.ToString,"SendCard") '发送通知
以上代码,可以发送单个人


Dim tzry As String = “001”     这样可以发送
Dim tzry As String = “001|002”     这样就不行,请解

 回到顶部
帅哥,在线噢!
有点蓝
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/22 13:48:00 [只看该作者]

什么东西?没看懂

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2019/8/22 14:12:00 [只看该作者]

            Dim tzry As String = tz  '通知人员名单
            Dim rel As String = Functions.Execute("Http_SendMsg",tzry,jo.ToString,"SendCard") '发送通知

上面tz的值是一个  比如“001”   下面的发送通知代码有效
如果tz的值是一个  比如“001|002”   下面的发送通知代码就出错了

001    002   为用户账号

 回到顶部
帅哥,在线噢!
有点蓝
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/22 14:34:00 [只看该作者]

还是没看懂。神才知道用了什么代码发送的,如果是调用别人的接口,接口要求是什么用的?

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2019/8/22 14:41:00 [只看该作者]

Dim tzry As String = tz  '通知人员名单      
是调用接口的,他们回复,
tz的值等于“001|002” ,要分成两个“001” , ”002“   才能发送 ,我用上面的代码合成,多了个“|”号,所以不行了
tz的值等于“001”或“002”单个值,就能发送


可能要用到    但我测试失败了

分割字符可以是一个数组,例如:

Dim Value As String = "foxtable|access/foxpro|excel/egrid"
Dim
sps() As Char = {"|","/"}
Dim
Names() As String  = Value.Split(sps)
For
Each name As String In Names
   
Output.Show(Name)
Next

[此贴子已经被作者于2019/8/22 14:42:59编辑过]

 回到顶部
总数 24 上一页 1 2 3 下一页