如何使用使用打印便携文档格式文件？

问：我想要在使用中使用代码来打印指定的便携文档格式文件，如何实现？

答：在之前的文章中，我们介绍了一个自定义函数ExePath，可以获取能够打开指定文件的可执行程序的扩展名程序的路径。这样，我们就可以使用可执行程序的扩展名程序来打开该文件了。因此，下面的代码先使用ExePath函数获取便携文档格式文件的可执行程序路径，然后使用它来打开指定的便携文档格式文件。

代码如下：

声明函数找到可执行的Lib " shell 32。dll " Alias " find executable EEA " _(ByVal lpfile As String，ByVal lpDirectory As String，ByVal lpResult As String)As long sub Test _ print pdf()Dim strFileName As StringstrFileName=" d : \ Test。pdf“打印pdf strFileName end子打印pdf(fnAs String)Dim pdfEXE As StringDim q As stringfexe=ExePath(fn)If pdfEXE=”没有找到可移植文档格式文件的扩展名(可移植文档格式的缩写)相关的可执行程序的扩展名程序。“，vbCritical，”宏结束" Exit SubEnd Ifq=" " Shell q pdfEXE q "/s/o/h/t " q fn q，vbHideEnd子函数exe path(lpFile As String)As StringDim lpDirectory As StringDim strExePath As StringDim LRC As longpdirectory=" " strExePath=Space(255)LRC=查找可执行文件(lpFile，lpDirectory，strExePath)strExePath=Left $(strExePath，InStr(strExePath，Chr $(0))0代码中：

1.使用变量strFileName指定了所要打印的便携文档格式文件的完整路径名。

2.对于AcroRd32.exe，传递给壳命令的参数如下：

/n-启动一个新的读者实例，即使该实例已经打开

/s-不显示启动界面

/o-不显示打开文件对话框

/h-以最小化窗口打开

/p文件名-打开并直接进入打印对话框

/t文件名打印机名驱动程序名端口名-将文件打印到指定的打印机

3.确保使用双引号将可执行程序的扩展名完整的路径和便携文档格式文件完整路径名括起来。

还有一段更简单一些的代码可以实现：

声明函数外壳执行库”外壳32。dll "别名“ShellExecuteA”(_ ByVal hwnd As Long，_ByVal lpOperation As String，_ByVal lpFile As String，_ByVal lpParameters As String，_ByVal lpDirectory As String，_ ByVal nShowCmd As Long)_ public Sub PrintFile(ByVal strPathAndFilename As String)调用apiShellExecute(应用程序。hwnd，“打印”，strPathAndFilename，vbNullString，vbNullString，0)结束子测试()打印文件