getting the default printer

[Guest]

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/default.asp?url=/library/en-us/wmisdk/wmi/win32_printer.asp


Ken
-------------------

message 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.