Printer.Name

Property Name As String

The Name property returns the printer’s name.

The Name property returns a read-only value.

The following code example lists the names 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) 
   s = s & Prn.Name & vbCr 
  Next intCounter 
 MsgBox "The following printers are installed on your system: " & 
vbCr & vbCr & s 
 Set Prn = Nothing 
End Sub