摘要： Q：我想要在VBA中使用代码来打印指定的PDF文件，如何实现？
A：在之前的文章中，我们介绍了一个自定义函数ExePath，可以获取能够打开指定文件的EXE程序的路径。这样，我们就可以使用EXE程序来打开该文件了。因此，下面的代码先使用ExePath函数获取PDF文件的可执行程序路径，然后使用它来打开指定的PDF文件。
代码如下：
- DeclareFunction FindExecutable Lib “shell32.dll” Alias “FindExecutableA” _
- (ByVal lpFileAs String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
- Sub Test_PrintPDF()
- Dim strFileName As String
- strFileName = “D:\test.pdf”
- PrintPDf strFileName
- End Sub
- Sub PrintPDf(fnAs String)
- Dim pdfEXE As String
- Dim q As String
- pdfEXE = ExePath(fn)
- If pdfEXE = “” Then
- MsgBox “没有找到pdf相关的EXE程序.”,vbCritical, “Macro Ending”
- Exit Sub
- End If
- q = “”””
- Shell q & pdfEXE & q & ” /s/o /h /t ” & q & fn & q, vbHide
- End Sub
- Function ExePath(lpFile As String) As String
- Dim lpDirectory As String
- Dim strExePath As String
- Dim lrc As Long
- lpDirectory = “\”
- strExePath = Space(255)
- lrc = FindExecutable(lpFile, lpDirectory,strExePath)
- strExePath = Left$(strExePath,InStr(strExePath, Chr$(0)) – 1)
- ExePath = strExePath
- End Function
代码中：
1.使用变量strFileName指定了所要打印的PDF文件的完整路径名。
2.对于AcroRd32.exe，传递给Shell命令的参数如下：
/n-启动一个新的Reader实例，即使该实例已经打开
excel图表制作：便捷的Ctrl键
下面是一些在Excel中经常使用Ctrl键进行的便捷操作。 操作1：选择不相邻的单元格或单元格区域 使用Ctrl键来选择不相邻的单元格或单元格区域，恐怕是很多使用Excel的人最喜爱的功能了。例如，你可以按照下面的操作来选择单元格： 1.鼠标单击单元格B2以选择该单元格。 2.按住Ctrl键，单击单元格C3，接
/s-不显示启动界面
/o-不显示打开文件对话框
/h-以最小化窗口打开
/p <文件名>-打开并直接进入打印对话框
/t <文件名> <打印机名> <驱动程序名> <端口名>-将文件打印到指定的打印机
3.确保使用双引号将EXE完整的路径和PDF文件完整路径名括起来。
还有一段更简单一些的代码可以实现：
- Declare FunctionapiShellExecute Lib “shell32.dll” Alias “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) _
- As Long
- Public Sub PrintFile(ByVal strPathAndFilename As String)
- Call apiShellExecute(Application.hwnd,”print”, strPathAndFilename, vbNullString, vbNullString, 0)
- End Sub
- Sub test()
- PrintFile (“D:\test.pdf”)
- End Sub
excel图表制作：制作具有数据导航功能的用户窗体
本文述如何连接用户窗体与ADO记录集，最终创建一个与Access窗体相似的用户窗体，可以导航至前一条记录、下一条记录、第一条记录、最后一条记录，等等。 设计用户窗体 在VBE中，插入一个用户窗体，在其中添加文本框、按钮、标签等控件，如下图1所示。 图1 这个用户窗体中的控件及相应的名称如下： 用户窗体名称
