expression.DriverName
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example displays information about all the printers available to the system.
Dim prtLoop As Printer
For Each prtLoop In Application.Printers
With prtLoop
MsgBox "Device name: " & .DeviceName & vbCr _
& "Driver name: " & .DriverName & vbCr _
& "Port: " & .Port
End With
Next prtLoop