vba - 用 VBA 打印 PDF 文件

Question

我是用 VBA 编码的新手。这是我未完成的代码，用于在包含具有 3 个不同标题“DN”、“INV”和“PO”的文档的文件夹中打印文档。我一直在寻找打印出 PDF 文档的代码/方法。我尝试使用 invokeverb "&print"函数，但它似乎不起作用。有人可以教我如何打印吗？非常感谢 :)

附言“DN”需要打印一次，“INV”需要打印6次，“PO”需要打印2次。

'' To set the path to the current folder

set shApp = CreateObject("shell.application")

currentPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") 

set shFolder = shApp.NameSpace( currentPath )

'' To set the items in the current folder as "files"

set files = shFolder.Items()

''Start of code''

'msgbox("Starting Script")

for each files in files

        ' If name contains "DN" '
        if inStr(files, "DN") then
            'print out 1 time'
        end if
        ' if name contains "INV" '
        if inStr(files, "INV") then
            'print out 6 times'
        end if
        ' if name contains "PO" '
        if inStr(files, "PO") then
            'print out 2 times'
        end if
next
MsgBox("completed")

Answer 1

Kajkrow 的 VBA 代码运行良好。我需要打印到特定的打印机，所以，如果有人在看这个，我找到了一个对我有用的解决方案，简单地使用“printto”而不是“print”作为 ShellExecute 的动词，并提供特定打印机的名称文件名之后的第四个参数中的名称。

Call apiShellExecute(Application.hwnd, "printto", strPathAndFilename, "my printer name", vbNullString, 0)