word报表窗口打印按钮的代码如何写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → word报表窗口打印按钮的代码如何写

共有3014人关注过本帖树形打印复制链接主题：word报表窗口打印按钮的代码如何写

zyxhx

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

加好友

发短信

等级：小狐帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00

word报表窗口打印按钮的代码如何写 发帖心情

Post By：2019/3/28 16:31:00 [只看该作者]

请问老师，在基本功能演示中有EXCEL报表的窗口打印按钮等的代码可以参考，如果此按钮连接的是WORD文档，代码应该如何改写？

预览按钮，直接打印按钮，查看生成结果按钮。请老师改写一下，谢谢！

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/28 16:36:00 [只看该作者]

参考

http://www.foxtable.com/webhelp/scr/2890.htm

zyxhx

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

加好友

发短信

等级：小狐帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00

Post By：2019/3/29 11:10:00 [只看该作者]

学生愚钝，不会灵活应用，请您将以下EXCEL报表代码修改为WORD报表代码，谢谢！

一、预览：

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")

Dim fl As String = ProjectPath & "Reports\出库单.xls"

Book.Build()

Book.Save(fl)

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

App.Visible = True

ShowAppWindow("出库单",2)

Ws.PrintPreview

App.Quit

二、打印：

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")

Dim fl As String = ProjectPath & "Reports\出库单.xls"

Book.Build()

Book.Save(fl)

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.PrintOut

App.Quit

三、查看生成结果：

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")

Dim fl As String = ProjectPath & "Reports\出库单.xls"

Book.Build()

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

辛苦老师了！万分感谢！

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/29 11:20:00 [只看该作者]

1、

2、

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.quit
'Dim fl = "d:\test.doc"
Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open(fl)
    App.Visible = True
    ShowAppWindow("出库单",2)
    Doc.PrintPreview

catch ex As exception
    msgbox(ex.message)
    app.Quit

finally
    'app.Quit
End try