最近使用Adobe Acrobat 10 Standard从Win XP升级到Win 7。我需要正确的命令来使用Excel 2010 VBA打印pdf文件。使用了以下有效的代码。
'acrobat executable
pdfApp="C:\Program Files (x86)\Adobe\Acrobat 10.0\Acrobat\AcroRd32.exe"
'remote server file
f(doctyp)="\\sorl0008\groups\ACROBAT_DATA\PS\out\600374_e.pdf"
'prints adobe pdf (ORIGINAL CODE THAT WORKED)
Shell pdfApp & " /t " & Chr(34) & f(doctyp) & Chr(34), vbNormalFocus 当我现在运行这个命令时,一旦执行了shell命令,屏幕就会短暂地闪烁,绝对没有任何反应。为什么会发生这种情况?是Adobe Acrobat 10的问题吗?我可以使用下面的代码成功地打开文件,但大多数时候我不想查看文件,只想发送到默认打印机并继续。V=外壳(pdfApp,vbNormalFocus) 'open adobe ActiveWorkbook.FollowHyperlink f(doctyp)‘在adobe中打开文件
即使我打开文件,然后尝试打印,我得到了同样的结果,快速屏幕闪光,但什么也没有。我在Windows7中关闭了数据执行保护,但它仍然不起作用。有什么想法是错的吗?
发布于 2014-02-01 05:28:39
你的代码在64位Win 7上运行得很好,除了到Adobe reader的路径不同:
'acrobat executable
'pdfApp = "C:\Program Files (x86)\Adobe\Acrobat 10.0\Acrobat\AcroRd32.exe"
pdfApp = "C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe"
'remote server file
'f(doctyp) = "\\sorl0008\groups\ACROBAT_DATA\PS\out\600374_e.pdf"
doc = "some unc path"
'prints adobe pdf (ORIGINAL CODE THAT WORKED)
Shell pdfApp & " /t " & Chr(34) & doc & Chr(34), vbNormalFocushttps://stackoverflow.com/questions/21489347
复制相似问题