getting the default printer

[Geraldine Hobley]

Hello,
I have the following code that sets the default printer using the WMI
(windows management system).

' Add a Reference to System.Management
Dim moReturn As Management.ManagementObjectCollection
Dim moSearch As Management.ManagementObjectSearcher
Dim mo As Management.ManagementObject

moSearch = New Management.ManagementObjectSearcher("Select * from
Win32_Printer")
moReturn = moSearch.Get

For Each mo In moReturn
If CType(mo("Name"), String) = Me.cboPrinter.Text Then
mo.InvokeMethod("SetDefaultPrinter", Nothing)
Exit For
End If
Next
This works fine, however, how do I get the default printer. How do I know
what methods Invokemethod accepts? Intellisense doesn't tell me.

Geri.

[Ken Tucker [MVP]]

Hi,

You need to look up the wmi class to get a list of methods.
mo("Default") will return true if the printer is the default printer.

http://msdn.microsoft.com/library/de...32_printer.asp
Ken
-------------------

"Geraldine Hobley" <Ge*************@discussions.microsoft.com> wrote in
message news:40**********************************@microsof t.com...
Hello,
I have the following code that sets the default printer using the WMI
(windows management system).

' Add a Reference to System.Management
Dim moReturn As Management.ManagementObjectCollection
Dim moSearch As Management.ManagementObjectSearcher
Dim mo As Management.ManagementObject

moSearch = New Management.ManagementObjectSearcher("Select * from
Win32_Printer")
moReturn = moSearch.Get

For Each mo In moReturn
If CType(mo("Name"), String) = Me.cboPrinter.Text Then
mo.InvokeMethod("SetDefaultPrinter", Nothing)
Exit For
End If
Next
This works fine, however, how do I get the default printer. How do I know
what methods Invokemethod accepts? Intellisense doesn't tell me.

Geri.