Printer.Description

Property Description As String

The Description property returns the printer’s description.

The Description property returns a read-only value.

The following code example lists the model names and descriptions of all installed printers:

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 = Nothing 
End Sub