Printer.Ready

Property Ready As Boolean

The Ready property returns the ready state of the printer.

The Ready property returns a read-only value.

The following code example lists the printers that are not ready to print:

Sub Test() 
 Dim intCounter As Integer 
 Dim Prn As Printer 
 Dim s As String 
  For intCounter = 1 To Printers.Count 
   Set Prn = Printers(intCounter) 
    If Prn.Ready = False Then 
     s = s & Prn.Type & vbCr 
    End If 
  Next intCounter 
 MsgBox "The following printers are not ready: " & vbCr & vbCr & s 
 Set Prn = Nothing 
End Sub