Printer.Default

Property Default As Boolean

The Default property returns whether the specified printer is the default printer.

The Default property returns a read-only value.

The following code example displays a message box with the model name of the default printer:

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 intCounter 
End Sub