我想批量打印文件夹下所有的文件，如何用vba来按A列的顺序来打量打印

一般我都是在文件夹窗口，选中所有文件（我的都是 word 文档），
然后点击菜单栏中的打印按钮即可。有其它文档的情况我没试过。

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpszOp As String, _
ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal LpszDir As String, ByVal FsShowCmd As Long) _
As Long
 
Sub prin()
Application.ScreenUpdating = False
ShellExecute Application.hwnd, "print", "D:\test.pdf", "", "", SW_HIDE '自己改打印的文件路径
Application.ScreenUpdating = True
End Sub

追问

好像不行啊？

追答

你也可以：

设置好默认打印机，确保是可以正常打印的那个打印机；

按文件类型排序，然后选中同一文件类型的所有文件；

右键，打印，这一类文件将被全部打印出来；

选择另外一个类型的所有文件，重复2，3步骤，直到所有类型的文件都打印完成。

一般不会超过10个类型的文件。

要看你具体的Excel文档，不好妄自揣测。(如果不方便可以根据实际情况模拟数据)

什么格式和怎么打印，这么关键的信息只字未提