VBA打印超过10000份PDF死机代码修改

gerogeedward · 发表于 2022-12-13 16:15

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

ShellExecute Application.hwnd, "print", f, "", "", SW_HIDE 代码超过30份后，电脑自动死机，怎么改让超过10000份打印不死机？

zmj9151 · 发表于 2022-12-13 20:52

这估计需要再开一个线程来处理打印，VBA怕是不行

smsn · 发表于 2022-12-13 21:10

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 打印后，延时几秒看看

liulang0808 · 发表于 2022-12-13 21:34

增加application.wait设置等待时间看看

opiona · 发表于 2022-12-14 01:16

拼成一个PDF文件再打印试试

lxdexcel · 发表于 2022-12-14 09:13

For Each f In filename
ShellExecute Application.hwnd, "print", f, "", "", SW_HIDE
DoEvents'让出cpu
Next f
要把代码放在定时器事件中，否则打印中断后无法自动启动

zhw79 · 发表于 2022-12-14 09:33

你是要电脑死机还是不要它死机

li446425169 · 发表于 2022-12-14 11:36

试试这个软件Print Conductor行不行，网上有破解版的

		自动登录	找回密码
密码			免费注册

[求助] VBA打印超过10000份PDF死机代码修改