套印问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 套印问题

共有6467人关注过本帖树形打印复制链接主题：套印问题

有点蓝

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/26 13:58:00 [只看该作者]

Dim p2 = pic.ConvertToShape

p2.WrapFormat.Type = MSWord.WdWrapType.wdWrapBehind

With p2

.Left = .Left - .Width / 2

.Top = .Top - .Height / 2

End With

Doc.save

jhxb8821

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：688 积分：4934 威望：0 精华：0 注册：2016/4/15 22:24:00

已解决

Post By：2022/5/26 16:02:00 [只看该作者]

谢谢蓝老师，比如我将点击“生成报表”按钮，生成报表，文件名自动存在“文档资料”列内，怎么实现？

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/26 16:06:00 [只看该作者]

比如

tables("表A").current("文档资料") = “c:\abc.doc”

jhxb8821

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：688 积分：4934 威望：0 精华：0 注册：2016/4/15 22:24:00

已解决

Post By：2022/5/26 16:26:00 [只看该作者]

生成报表按钮代码：

Dim dr As Row = Tables("事件登记").Current

Dim tm As String = ProjectPath & "Attachments\登记表1.doc" '指定模板文件

Dim fl As String = ProjectPath & "Reports\" & "文档资料" & "\" & dr("事件ID") & dr("姓名") & "登记表.doc" '指定目标文件

Dim wrt As New WordReport(Tables("事件登记"), tm, fl) '定义一个WordReport

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

wrt.Show() '显示报表

Tables("事件登记").current("文档资料") = dr("事件ID") & dr("姓名") & "登记表.doc"

[此贴子已经被作者于2022/5/26 16:40:37编辑过]

jhxb8821

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：688 积分：4934 威望：0 精华：0 注册：2016/4/15 22:24:00

代码

Post By：2022/5/26 17:04:00 [只看该作者]

我要找到这个文档，加盖电子印章，显示路径有问题，麻烦老师帮我看看

Dim fl As String = ProjectPath & "Reports \ 文档资料 \" & Vars ("事件ID") & Vars ("姓名") & "登记表.doc" '指定模板文件

Dim fl1 As String = ProjectPath & "Reports \ 文档资料 \ " & Vars ("事件ID") & Vars ("姓名") & "登记表(已用印).doc" '指定目标文件

FileSys.CopyFile(fl, fl1, True)

Dim img As String = ProjectPath & "电子印章1.png"

Dim app As New MSWord.Application

模板“登记表”，生成word报表，文件名为“11张三登记表”，文件名存在“文档资料”列

[此贴子已经被作者于2022/5/26 17:06:01编辑过]

有点蓝

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/26 17:12:00 [只看该作者]

调试

Dim fl As String = ProjectPath & "Reports \ 文档资料 \" & Vars ("事件ID") & Vars ("姓名") & "登记表.doc" '指定模板文件

msgbox(fl)

Dim fl1 As String = ProjectPath & "Reports \ 文档资料 \ " & Vars ("事件ID") & Vars ("姓名") & "登记表(已用印).doc" '指定目标文件

msgbox(fl1 )

jhxb8821

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：688 积分：4934 威望：0 精华：0 注册：2016/4/15 22:24:00

代码

Post By：2022/5/26 17:17:00 [只看该作者]

这个代码只找到文件名为“登记表”的文件，我需要找到文件名为“11张三登记表”的文件，每个文件不一样

有点蓝

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/26 17:19:00 [只看该作者]

说明全局变量没有值

msgbox(Vars ("事件ID"))

jhxb8821

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：688 积分：4934 威望：0 精华：0 注册：2016/4/15 22:24:00

代码

Post By：2022/5/26 17:24:00 [只看该作者]

我这样换了代码，显示还是找不到文件名

Dim dr As Row = Tables("事件登记").Current

Dim fl As String = ProjectPath & "Reports \ 文档资料 \" & dr("事件ID") & dr("姓名") & "登记表.doc" '指定模板文件

Dim fl1 As String = ProjectPath & "Reports \ 文档资料 \ " & dr("事件ID") & dr("姓名") & "登记表(已用印).doc" '指定目标文件

FileSys.CopyFile(fl, fl1, True)

Dim img As String = ProjectPath & "电子印章1.png"

Dim app As New MSWord.Application

Try

"事件ID"，相当于事件编号

[此贴子已经被作者于2022/5/26 17:32:33编辑过]

有点蓝

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/26 17:34:00 [只看该作者]

学会调试

下一主题 >> << 上一主题

总数 36 上一页 1 2 3 4 下一页

主题：套印问题