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 = NothingEnd Sub