VBA如何取消打印机列表中的打印任务？

xlcself

事件描述：要在N张单据（具体数值不详，每天不一样的）上打印编号，我想设置个大于通常情况下的数值，比如1000，然后用for循环实现打印。如果打印机中当天的单据打印完了，然后按【结束打印】按钮，把后台打印列表中的任务给取消了。
①想在excel的VBA中实现，不知道如何实现？
②有没有更好的办法？
谢谢

ykcbf1100

智慧4.0模型的回复：
      在VBA中取消打印机列表中的打印任务，可以通过操作Windows的打印机队列来实现。以下是一个简单的例子，展示如何在VBA中取消特定的打印任务：
Sub CancelPrintJob()
    Dim printerName As String
    Dim printJobName As String
   
    ' 设置打印机名称和打印任务名称
    printerName = "你的打印机名称"
    printJobName = "要取消的打印任务名称"
   
    ' 创建一个打印机队列对象
    Dim objPrinter As Object
    Set objPrinter = CreateObject("WScript.Network")
   
    ' 获取打印机对象
    Dim objPrintQueue As Object
    Set objPrintQueue = objPrinter.Printers(printerName)
   
    ' 获取所有打印任务
    Dim colPrintJobs As Object
    Set colPrintJobs = objPrintQueue.PrintQueueItems
   
    ' 遍历打印任务，找到并取消指定的打印任务
    Dim objPrintJob As Object
    For Each objPrintJob colPrintJobs
        If objPrintJob.Name = printJobName Then
            objPrintJob.Cancel
            MsgBox "打印任务 '" & printJobName & "' 已被取消。"
            Exit For
        End If
    Next objPrintJob
End Sub
请注意以下几点：
1. 这段代码需要打印机名称和打印任务名称完全匹配才能取消任务。
2. 你必须有足够的权限来管理打印机队列，才能取消打印任务。
3. 这个宏不会在VBA编辑器中直接运行，Excel中运行，并且可能需要调整安全设置以允许宏访问网络资源。

以上仅供参考，未实测。

xlcself

谢谢，我试试看。

xlcself

测试无法通过。不知道什么原因。

逍遥爱迪生

可以加我Q，测了半天，不太好整

逍遥爱迪生

类似这样的打印功能是吧？

xlcself

我想通过建立【结束打印】按钮，将打印机列表中的多有任务都结束。类似于我们通过鼠标点击打印任务，然后点击【取消】那样的功能。