Printer Driver List in Excel

[mroseto]

Hello all,

I was wondering if there is a way to get a list of print drivers installed on a computer and have it exported to excel? I know this is an unusual request and might not be doable It will just save me from having to write down a long list of printers installed on my server.

Thanks

Mike

 

[RoryA]

Do you mean a list of installed printers, or a list of driver files?

 

[mroseto]

Sorry I meant installed printers.

 

[RoryA]

You can use WMI - for example:

Sub ListPrinters()
Dim strComputer As String, objWMIService As Object, colInstalledPrinters As Object, objPrinter As Object
Dim lngrow As Long
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objPrinter In colInstalledPrinters
   lngrow = lngrow + 1
   ActiveSheet.Cells(lngrow, "A").Value = objPrinter.Name
Next objPrinter
End Sub