| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- word报表，怎样用代码可以直接打印 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151461) |
| -- 作者：天宇科技 -- 发布时间：2020/6/23 17:41:00 -- word报表，怎样用代码可以直接打印 EXCEL报表，可以用代码直接打印生成的报表，但word报表，我没有找到如何用代码直接就打印生成的报表。 如果用VBA，帮助中的有点简单，不会修改这个代码。有其他办法吗？
Dim app
As New MSWord.Application app.Documents.Open("c:\\data\\blank.doc") app.Visible = True |
| -- 作者：天宇科技 -- 发布时间：2020/6/23 17:45:00 -- 请蓝版帮助 [此贴子已经被作者于2020/6/24 19:08:56编辑过]
|
| -- 作者：天宇科技 -- 发布时间：2020/6/24 18:43:00 -- Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport wrt.Build() \'逐行生成报表 wrt.Show() \'显示报表 这是显示报表，不是打印报表
[此贴子已经被作者于2020/6/24 18:56:55编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/6/24 20:23:00 -- Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport wrt.Build() \'逐行生成报表 wrt.print wrt.quit |