Hente printer status

Hej
Jeg ønsker at kunne se printer status (default printer) før jeg sender en udskrift til printeren

Jeg har pt følgende kode hvor jeg kan se alle installeret printer samt default printer, men mangler lige en printer status (ready, not ready eller offline).

Sub Printer_liste()

Dim x As Long
Dim lCount As Long

'NB ref.= Mickosoft Access 14.0 object library

lCount = Printers.Count

If lCount = 0 Then
  MsgBox "(No Printer Installed)"
  Exit Sub
Else
    For x = 0 To lCount - 1
        MsgBox "Printer: " & Printers(x).DeviceName
        MsgBox "port: " & Printers(x).Port
    Next
End If

MinDefaultPrinter = Application.ActivePrinter
MsgBox "DefaultPrinter" & MinDefaultPrinter

End Sub