以文本方式查看主题

-  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=111375)
--  作者：tangshiyyyyy
--  发布时间：2017/12/20 20:42:00
--  [求助] 一个按钮生成word报表并打印预览或打印的代码
请问：一个按钮 生成word报表或者excel报表并打印预览或打印的代码该怎么写？
--  作者：有点甜
--  发布时间：2017/12/20 21:03:00
--  

生成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