将文件夹中的多种文件类型(pdf，jpg，png或txt)转换为PDF - Excel VBA

Question

我需要打印文件夹中的所有文档(无论是PDF，JPG，PNG还是TXT(，但我所能读到的只是如何将特定文件类型转换/打印为PDF。

是否可以使用宏来打印文件夹中的所有PDF，JPG，PNG或TXT文件？

Answer 1

也许这应该会有所帮助

Sub printf()
TargetFolder = "c:test"
If TargetFolder > "" Then
  Set objShell = CreateObject("Shell.Application")
  Set objFolder = objShell.Namespace(TargetFolder)
  Set colItems = objFolder.Items
  For Each objItem In colItems
    objItem.InvokeVerbEx ("Print")
  Next
 msgbox "All files in folders being printed"
else
  msgbox "Please specify a folder name"
End If
End Sub