Dim app As New MSWord.Application try Dim fileName = "e:\test.doc" app.Documents.Open(fileName) 'app.Documents(fileName).PrintPreview 'app.Visible = True app.Documents(fileName).PrintOut '打印 catch ex As exception msgbox(ex.message) finally app.Quit End try
加好友 
发短信
Post By：2014/9/18 11:12:00 [显示全部帖子]
