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.Description <> "" Then s = s & Prn.Type & " - " & Prn.Description & vbCr End If Next intCounter MsgBox "The following printers are installed on your system: " & vbCr & vbCr & s Set Prn = NothingEnd Sub