อื่ม! ถ้าเอาแบบง่ายๆ ก็ใช้คำสั่งประมาณนี้น่าจะได้นะครับ

    Dim strComputer As String
    Dim objWMIService
    Dim colInstalledPrinters
    Dim objPrinter
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer where Default = 'True'")
    'Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer where Name = 'CutePDF Writer'")' หากต้องการระบุชื่อเครื่องพิมพ์เอง
    For Each objPrinter In colInstalledPrinters
        Select Case objPrinter.PrinterStatus
        Case 1
            MsgBox "Printer is Pause" ' หยุดชั่วคราว
        Case 2
            MsgBox "Printer is off line" ' ไม่พร้อมใช้งาน
        Case 3
            MsgBox "Printer is Idle" ' พร้อมใช้งาน
        Case 4
            MsgBox "Printer is Printing" ' กำลังพิมพ์งานอยู่
        Case 5
            MsgBox "Printer is Warming up" ' กำลังอุ่นเครื่อง
        Case Else
            MsgBox "Unknow"
        End Select
    Next

แต่หากต้องการใช้แสดงแบบละเอียดลองดูที่นี่ครับ
http://www.thai-access.com/yeadram_view.php?topic_id=3046

ขอบคุณมากครับ คุณ TTT จะลองปรับใช้ดู