求助大神，如何用VBA判断打印机是否打印完毕

liuguixu

我要判断打印机是不是打印完毕了，如果打印完毕了就执行下一段代码

fxl447098457

wmi查询下打印机状态。win32_printer的Printerstatus吧

liuguixu

fxl447098457 发表于 2022-8-9 08:30
wmi查询下打印机状态。win32_printer的Printerstatus吧

我是直接延时执行，只要打印了一份文件，后面的文件打印多会用这个打印机，所有延迟执行就解决了，还是谢谢大神

liuguixu

fxl447098457 发表于 2022-8-9 08:30
wmi查询下打印机状态。win32_printer的Printerstatus吧

大神，看看这个会不会太复杂了，有没有更简单的方法

drewhao

Function ActivePrinterStatus() As String
    Dim ActivePrinterName As String, dyj As String
    Dim objWMI As Object, colPrinters As Object
    Set objWMI = GetObject("winmgmts:(impersonationLevel=impersonate)!\\.\root\cimv2")
    Set colPrinters = objWMl.ExecQuery("Select * from Win32_Printer")
    dyj = Application.ActivePrinter
    ActivePrinterName = Left(dyj, InStr(dyj, "在") - 1)
    For Each objPrinter In colPrinters
        If objPrinter.Name = ActivePrinterName Then
            Select Case objPrinter.PrinterStatus
                Case 3
                    ActivePrinterStatus = "空闲"
            End Select
            Exit For
        End If
    Next
End Function