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

打印时出现  fileopen命令因“查找”或“”替换“对话框已经打开而无效 

如何静默打印？

在一个窗口中设置一个打印按钮，打印按钮的代码是打开一个word文件并打印，如何在打印按钮中写代码实现这个窗口一直显示，打印只在后台进行？

在一个窗口中设置一个打印按钮，打印按钮的代码是打开一个word文件并打印，如何在打印按钮中写代码实现这个窗口一直显示，打印只在后台进行？

打印代码这样写

 

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