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.ColorEnabled = True Then s = s & Prn.Type & vbCr End If Next intCounter MsgBox "The following printers are able to print in color: " & vbCr & s Set Prn = NothingEnd Sub