Sub Test() Dim intCounter As Integer Dim Prn As Printer Dim s As String For intCounter = 1 To Printers.Count Set Prn = Printers(intCounter) s = s & Prn.Name & vbCr Next intCounter MsgBox "The following printers are installed on your system: " & vbCr & vbCr & s Set Prn = NothingEnd Sub