打印什么都可以
Dim app As New MSWord.Applicationtry Dim fileName = "d:\test.doc" Dim doc = app.Documents.Open(fileName) app.visible = True doc.PrintPreviewcatch ex As exception msgbox(ex.message) app.Quitfinally End try