主题：word报表窗口打印按钮的代码如何写

参考

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

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