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.Manageme nt
Dim moReturn As Management.Mana gementObjectCol lection
Dim moSearch As Management.Mana gementObjectSea rcher
Dim mo As Management.Mana gementObject

moSearch = New Management.Mana gementObjectSea rcher("Select * from
Win32_Printer")
moReturn = moSearch.Get

For Each mo In moReturn
If CType(mo("Name" ), String) = Me.cboPrinter.T ext Then
mo.InvokeMethod ("SetDefaultPri nter", 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.m icrosoft.com> wrote in
message news:40******** *************** ***********@mic rosoft.com...
Hello,
I have the following code that sets the default printer using the WMI
(windows management system).

' Add a Reference to System.Manageme nt
Dim moReturn As Management.Mana gementObjectCol lection
Dim moSearch As Management.Mana gementObjectSea rcher
Dim mo As Management.Mana gementObject

moSearch = New Management.Mana gementObjectSea rcher("Select * from
Win32_Printer")
moReturn = moSearch.Get

For Each mo In moReturn
If CType(mo("Name" ), String) = Me.cboPrinter.T ext Then
mo.InvokeMethod ("SetDefaultPri nter", 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.