Change Default Printer

I have 2 printers on my computer. I can change default printer through Control Panel or from VB using Common Dialog. How to change default printer from VB code?
Thank you
Vlad

[smalig]

Check follow sample:
http://vbcode.webhostme.com/en/code.asp?id=80

smalig@hotmail.com
http://vbcode.webhostme.com/

set printer(0) sets the default printer
set printer(1) sets another
set printer(2) sets another etc

to find your list of printers do this

dim x as printer
for each x in printers
form1.print x.devicename
next x


it`ll print a list of all yer devices that print