在VBA中调用Adobe Acrobat或Reader的命令行工具，实现PDF自动打印 (‾◡◝)

本文主要是介绍在VBA中调用Adobe Acrobat或Reader的命令行工具，实现PDF自动打印 (‾◡◝)，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

        在VBA（Visual Basic for Applications）中自动打印PDF文件通常不直接支持，因为VBA本身是针对Microsoft Office应用程序（如Excel、Word和PowerPoint等）的编程语言，并不直接处理PDF文件。但是，你可以通过调用Adobe Acrobat或Reader的命令行工具间接实现自动打印PDF文件的功能。

一、操作步骤

首先需要为你的电脑安装Adobe Acrobat或Reader，你可以使用它们的命令行工具（如AcroRd32.exe）来打印PDF文件。其次需要Acrobat或Reader的安装路径（可能因版本和安装位置而异）。最后编写VBA代码调用命令行。

Sub PrintPDF()'自动打印单个PDF文件Const Path_Pdf As String = "C:\Users\Desktop\test.pdf"Const Adobe_exe As String = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"Const Printer_Name As String = "Print Driver"Dim shellCommand As StringshellCommand = Adobe_exe & " /p /h " & Path_PdfShell shellCommand, vbHideEnd Sub'选择打印机 /t
'shellCommand = Adobe_exe & " /p /h /t "& Printer_Name & Path_Pdf

Sub BatchPrintPDF()'批量打印PDF文件Const Path_Pdf As String = "C:\Users\Desktop\test"Const Adobe_exe As String = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"Dim shellCommand As StringSet fso = CreateObject("Scripting.FileSystemObject")Set Folder = fso.GetFolder(Path_Pdf)For Each file In Folder.FilesshellCommand = Adobe_exe & " /p /h " & fileShell shellCommand, vbHideNext fileEnd Sub

这篇关于在VBA中调用Adobe Acrobat或Reader的命令行工具，实现PDF自动打印 (‾◡◝)的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---