如何使用vba批量打印一个文件夹内的所有文件

可以使用以下代码来批量打印一个文件夹内的所有文件：

Sub PrintAllFilesInFolder()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("C:\Folder\Path") '修改为你的文件夹路径
    
    For Each file In folder.Files
        If Right(file.Name, 3) = "pdf" Then '只打印pdf文件，可以根据需要修改
            Application.PrintOut FileName:=file.Path, _
                Range:=wdPrintAllDocument, _
                Item:=wdPrintDocumentContent, _
                Copies:=1, Pages:="", _
                PageType:=wdPrintAllPages, _
                Collate:=True, Background:=True, _
                PrintToFile:=False, PrintZoomColumn:=0, _
                PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
                PrintZoomPaperHeight:=0
        End If
    Next file
    
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

这段代码会遍历指定文件夹内的所有文件，并打印所有后缀名为pdf的文件。如果需要打印其他类型的文件，只需要修改判断条件即可。