将文件夹中的多种文件类型（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