主题：关于窗口显示word文件打印问题

我在一个窗口用WebBrowser显示word文件，可以显示出完整的内容，我想在窗口加个控件“预览”和“打印”，请大侠指点，代码该怎么写。我试了下，打出来是空白了，急，谢谢了。见图
此主题相关图片如下：窗口设计.png


此主题相关图片如下：窗口预览.png

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

 

谢谢，试了下，路径找到的文件和窗口显示的文件不一样。求解。谢谢

我的窗口加载事件的代码是

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

请问有什么办法吗？

 

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

 

 

非常感谢你，已经解决了。谢谢