如何得到和设置默认打印机？？？

[awinder]

如题

[saucer]

see

http://www.absolutelydiverse.com.au/vb_tips/hardcore/tip_5.htm

http://www.developer.com/net/cplus/article.php/640491

http://www.adamswann.com/library/2001/DefaultPrinter.html

http://www.fawcette.com/vsm/2002_02/magazine/columns/desktopdeveloper/default_pf.asp

http://www.freevbcode.com/ShowCode.Asp?ID=641

[lihonggen0]

'***************打印机***************************
取得打印机:
If Printers.Count < 1 Then
MsgBox "系统没有安装打印机！", vbCritical, App.Title
Unload Me
Exit Sub
End If

Dim Prns As Printer
For Each Prns In Printers
List1.AddItem Prns.DeviceName
Next
List1.ListIndex = 0

设定默认打印机:
Set Printer = Printers(List1.ListIndex)

[lihonggen0]

http://support.microsoft.com/default.aspx?scid=kb;EN-US;266767


HOWTO: Set Which Printer Is the System Default Printer