Sub Test() Dim intCounter As Integer, Prn As Printer For intCounter = 1 To Printers.Count Set Prn = Printers.Item(intCounter) If Prn.Default = True Then MsgBox "The default printer is: " & Prn.Type End If Next intCounterEnd Sub