以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  word报表窗口打印按钮的代码如何写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132734)
--  作者：zyxhx
--  发布时间：2019/3/28 16:31:00
--  word报表窗口打印按钮的代码如何写
请问老师，在基本功能演示中有EXCEL报表的窗口打印按钮等的代码可以参考，如果此按钮连接的是WORD文档，代码应该如何改写？

预览按钮，直接打印按钮，查看生成结果按钮。请老师改写一下，谢谢！
--  作者：有点甜
--  发布时间：2019/3/28 16:36:00
--  

参考

 

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

 
--  作者：zyxhx
--  发布时间：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()

辛苦老师了！万分感谢！
--  作者：有点甜
--  发布时间：2019/3/29 11:20:00
--  

1、

 

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

 

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
--  作者：zyxhx
--  发布时间：2019/3/29 11:39:00
--  
老师，如果不用预览，直接打印呢？
--  作者：zyxhx
--  发布时间：2019/3/29 11:57:00
--  
直接打印，我这样改，您看对吗？

Dim tm As String  = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim app As New MSWord.Application
Dim doc = app.Documents.Open(fl)
App.Visible = True
Doc.PrintOut
app.Quit
--  作者：有点甜
--  发布时间：2019/3/29 11:59: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
--  作者：blackzhu
--  发布时间：2020/12/16 11:47:00
--  
blackzhu : 学习了!