打印指定文件夹里面的所有PDF文件

mnq

求一个VBA打印指定文件夹里面的所有PDF文件（包含子文件夹里面的PDF文件）

fxl447098457

找了个代码给你耍耍、、
Private 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
Const SW_HIDE As Long = 0
Sub test()
  Dim filename(), n, pth, mark, fso
  Set fso = CreateObject("scripting.filesystemobject")
  pth = "C:\Users\f\Desktop\批量导入图片问题\"
  mark = ".pdf" '文件类型
  Call getfilename(fso, filename, n, pth, mark)
  If n = 0 Then Exit Sub
  For Each f In filename
    ShellExecute Application.hwnd, "print", f, "", "", SW_HIDE
Next f
End Sub

Sub getfilename(fso, filename, n, pth, mark)
  Dim spth, t
  If Right(pth, 1) <> "\" Then pth = pth & "\"
    Set spth = fso.getfolder(pth)
    For Each t In spth.Files
      If LCase(Right(t, Len(mark))) = LCase(mark) Then
        n = n + 1: ReDim Preserve filename(1 To n)
        filename(n) = spth & "\" & t.Name
      End If
    Next
    For Each t In spth.subfolders
      getfilename fso, filename, n, t, mark
    Next
End Sub

gerogeedward

谢谢你的代码，我用得别人写的程序，格式全部错误的，又不想收费的，谢谢

gerogeedward

Private 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
Const SW_HIDE As Long = 0
Sub test()
  Dim filename(), n, pth, mark, fso
  Dim str1199 As String
  Set fso = CreateObject("scripting.filesystemobject")
  str1199 = InputBox("输入一个文件夹： ", "文件位置")
  pth = str1199 & "\"
  mark = ".pdf" '文件类型
  Call getfilename(fso, filename, n, pth, mark)
  If n = 0 Then Exit Sub
  For Each f In filename
    ShellExecute Application.hwnd, "print", f, "", "", SW_HIDE
Next f
End Sub

Sub getfilename(fso, filename, n, pth, mark)
  Dim spth, t
  If Right(pth, 1) <> "\" Then pth = pth & "\"
    Set spth = fso.getfolder(pth)
    For Each t In spth.Files
      If LCase(Right(t, Len(mark))) = LCase(mark) Then
        n = n + 1: ReDim Preserve filename(1 To n)
        filename(n) = spth & "\" & t.Name
      End If
    Next
    For Each t In spth.subfolders
      getfilename fso, filename, n, t, mark
    Next
End Sub

gerogeedward

ShellExecute Application.hwnd, "print", f, "", "", SW_HIDE   
超过30个pdf电脑就卡死了，有什么办法超过5000个批量打印，  打印一会停一下再打印，就是一个文件下有5000个PDF怎么改代码？

1577715381

gerogeedward 发表于 2022-12-13 16:08
ShellExecute Application.hwnd, "print", f, "", "", SW_HIDE   
超过30个pdf电脑就卡死了，有什么办法 ...

联系我Q1577715381@qq.com我有办法

1577715381

联系我 我有办法 1577715381