以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  想问大佬和老师们一个小白的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137221)
--  作者：bjw5211521
--  发布时间：2019/7/1 10:24:00
--  想问大佬和老师们一个小白的问题
是刚入foxtable的小白，代码和别的啥也不会。

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

这个打印EXCEL的代码怎么改成打印WORD的
--  作者：有点甜
--  发布时间：2019/7/1 11:12:00
--  

参考

 

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

 
--  作者：bjw5211521
--  发布时间：2019/7/1 11:24:00
--  
实在是弄不成，唉
--  作者：有点甜
--  发布时间：2019/7/1 11:37:00
--  
以下是引用bjw5211521在2019/7/1 11:24:00的发言：
实在是弄不成，唉

 

上传具体实例，说明你要做什么。

 

 

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\\test.doc")
    Doc.PrintPreview
    app.Visible = True
    \'Doc.PrintOut \'打印
catch ex As exception
    msgbox(ex.message)
    app.quit
finally
    \'app.Quit
End try