遍历指定文件夹下文件批量多类型文件打印

kky168

在文件归档过程中，经常遇到一个文件夹下所有文件都要打印的情况，请问下有没有能实现遍历指定文件夹下文件批量多类型文件打印的功能，文件夹中可能包含excel，word,pdf,bmt,jpeg等多类型文件。

liulang0808

选中所有文件，鼠标右键打印即可吧

liulang0808

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
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Button1_Click()
    Set fso = CreateObject("scripting.filesystemobject")
    For Each f In fso.getfolder(ThisWorkbook.Path).Files
        If InStr(f.Name, ThisWorkbook.Name) = 0 Then ShellExecute Application.hwnd, "print", f, "", "", SW_HIDE
    Next f
End Sub


楼主测试下，看看是否可行吧
如果文件多，打印有问题，增加等待时间吧

kky168

liulang0808 发表于 2023-2-8 13:24
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVa ...

谢谢大佬，word，excel可以打印了，但图片型的就停留在打印选一页打几张那个选项了，有没有办法跳过。还有打一个打一下错，有没办法屏闭啊。

liulang0808

kky168 发表于 2023-2-10 10:32
谢谢大佬，word，excel可以打印了，但图片型的就停留在打印选一页打几张那个选项了，有没有办法跳过。还 ...

图片文件打印的时候，需要弹窗提示设置的

kky168

liulang0808 发表于 2023-2-10 10:50
图片文件打印的时候，需要弹窗提示设置的

能通过代码屏闭吗，打印机平时应该保持默认