- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于窗口显示word文件打印问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67843)
-- 发布时间：2015/5/4 20:52:00
-- 关于窗口显示word文件打印问题
我在一个窗口用WebBrowser显示word文件，可以显示出完整的内容，我想在窗口加个控件“预览”和“打印”，请大侠指点，代码该怎么写。我试了下，打出来是空白了，急，谢谢了。见图
此主题相关图片如下：窗口设计.png
此主题相关图片如下：窗口预览.png
-- 发布时间：2015/5/4 20:56:00
--
Dim app As New MSWord.Application
try
Dim fileName = "d:\\test.doc"
Dim doc = app.Documents.Open(fileName)
Doc.PrintPreview
app.Visible = True
\'Doc.PrintOut \'打印
catch ex As exception
msgbox(ex.message)
finally
\'app.Quit
End try
-- 发布时间：2015/5/4 21:38:00
--
谢谢，试了下，路径找到的文件和窗口显示的文件不一样。求解。谢谢
我的窗口加载事件的代码是
Dim wbr As WinForm.WebBrowser = e.Form.Controls("报表")
wbr.OfficeToolBar = True
Dim tm As String = ProjectPath & "Attachments\\钢材焊接委托检验协议书.doc"
Dim fl As String = ProjectPath & "Reports\\钢材焊接委托检验协议书.doc"
Dim wrt As New WordReport(Tables("钢筋焊接送检主表"),tm,fl)
wrt.Build()
wrt.Quit()
wbr.AddRess = fl
请问有什么办法吗？
-- 发布时间：2015/5/4 21:41:00
--
Dim app As New MSWord.Application
try
Dim fileName = ProjectPath & "Reports\\钢材焊接委托检验协议书.doc"
Dim doc = app.Documents.Open(fileName)
Doc.PrintPreview
app.Visible = True
\'Doc.PrintOut \'打印
catch ex As exception
msgbox(ex.message)
finally
\'app.Quit
End try
-- 发布时间：2015/5/4 22:35:00
--
非常感谢你，已经解决了。谢谢