How to set default printer?

[Francisco Araujo]

[Ken Tucker [MVP]]

Hi,
Use the wmi for that. The win32_printer class has the
setdefaultprinter method.
' 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

Dim strOut As String

strOut = String.Format("Name {0} ", mo("Name"))

Trace.WriteLine(strOut)

mo.InvokeMethod("SetDefaultPrinter", Nothing)

Next

Ken

------------------------
"Francisco Araujo" <fj**@hotmail.com> wrote in message
news:%2***************@TK2MSFTNGP12.phx.gbl...

[Herfried K. Wagner [MVP]]

"Francisco Araujo" <fj**@hotmail.com> schrieb:

[Nothing]

If you want to use p/invoke, you can find a /VB6/ sample here:

How To Set Which Printer Is the System Default Printer
<URL:http://support.microsoft.com/?id=266767>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>