get-wmiobject -list | where-object {$_.name -like "*printer*"}

get-wmiobject win32_printer

get-wmiobject win32_printer | select printerstate,printerstatus

    Private Sub getStatus()
        On Error Resume Next
        Dim aMS As New ManagementScope("root\CIMV2")
        Dim aOQ As New ObjectQuery("SELECT * FROM win32_printer")
        Dim aMAS As New ManagementObjectSearcher(aMS, aOQ)
        Dim aObj As ManagementObject
        For Each aObj In aMAS.Get()
            ListBox1.Items.Add(aObj.Item("printerstatus").ToString())
        Next
    End Sub