主题：[求助]打印时出现的问题

打印代码这样写

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