主题：[求助] 一个按钮生成word报表并打印预览或打印的代码

生成word报表，参考

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

生成excel报表，参考

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

用vba预览打印word或excel，参考

word

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    app.visible = true
    doc.PrintPreview
    'app.Quit
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try

excel

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Protect(Password:="foxtable")
App.Visible = True
Ws.PrintPreview
App.Quit