以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]打印时出现的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104202)
--  作者：lzzhx
--  发布时间：2017/7/25 11:13:00
--  [求助]打印时出现的问题
打印时出现  fileopen命令因“查找”或“”替换“对话框已经打开而无效 

如何判断 windows的“查找”或“”替换“对话框已经打开并将其关闭？
--  作者：lzzhx
--  发布时间：2017/7/25 11:33:00
--  
如何静默打印？
--  作者：lzzhx
--  发布时间：2017/7/25 11:43:00
--  
在一个窗口中设置一个打印按钮，打印按钮的代码是打开一个word文件并打印，如何在打印按钮中写代码实现这个窗口一直显示，打印只在后台进行？
--  作者：lzzhx
--  发布时间：2017/7/25 11:51:00
--  
在一个窗口中设置一个打印按钮，打印按钮的代码是打开一个word文件并打印，如何在打印按钮中写代码实现这个窗口一直显示，打印只在后台进行？

这个问题解决了，下面的问题如何解决？

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

如何判断 windows的“查找”或“”替换“对话框已经打开并将其关闭？
--  作者：有点甜
--  发布时间：2017/7/25 11:57:00
--  

打印代码这样写

 

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