使用打印 scope 字符串打印特定页面表格 pdf 文件

Question

我需要使用 excel VBA 打印 *.pdf 文件的选定页面。 我需要做到这一点不是通过提供 scope “从 - 到”，而是提供像“1-3,4,8,17-25”这样的页面

我只能使用以下代码打印整个文件：

Public Declare Function ShellExecute 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 Function PrintThisDoc(formname As Long, FileName As String)
On Error Resume Next
Dim X As Long
X = ShellExecute(formname, "Print", FileName, 0&, 0&, 3)
End Function

Sub testPrint()
Dim printThis
Dim strDir As String
Dim strFile As String
strDir = "C:\Users\any\Desktop"
strFile = "somefile.pdf"


printThis = PrintThisDoc(0, strDir & "\" & strFile)
End Sub ```

Answer 1

从这篇文章来看，单独使用ShellExecute是不可能的。 您需要编写一个脚本，该脚本将在您安装的任何 PDF 阅读器中打开文件，在此处找到“打印”按钮并提供所有选项。 这需要大量的工作，并且取决于 Windows 和 PDF 阅读器的版本，所以基本上它只适用于您，而不适用于其他用户。 如果你想 go 这个路径，看看FindWindow和SendMessage WinAPI 函数。