-
本版专家分：29
-
- 红花 2002年2月 其他开发语言大版内专家分月排行榜第一
-
- 蓝花 2002年8月 其他开发语言大版内专家分月排行榜第三
结帖率 100% -
-
如题
-
本版专家分：8734
-
- 名人 年度总版至少三次排名前十即授予名人勋章
-
- 状元 2002年 总版技术专家分年内排行榜第一
-
- 榜眼 2003年 总版技术专家分年内排行榜第二
-
- 探花 2004年 总版技术专家分年内排行榜第三
-
-
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
-
本版专家分：123378
-
- 进士 2003年 总版技术专家分年内排行榜第十
-
- 铜牌 2003年7月 总版技术专家分月排行榜第三
-
-
微软MVP
2013年7月 荣获微软MVP称号
2012年7月 荣获微软MVP称号
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
2005年1月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
-
-
红花
2003年9月 VB大版内专家分月排行榜第一
2003年8月 VB大版内专家分月排行榜第一
2003年7月 VB大版内专家分月排行榜第一
2003年6月 VB大版内专家分月排行榜第一
2003年5月 VB大版内专家分月排行榜第一
2003年4月 VB大版内专家分月排行榜第一
-
-
'***************打印机***************************
取得打印机:
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)
-
本版专家分：123378
-
- 进士 2003年 总版技术专家分年内排行榜第十
-
- 铜牌 2003年7月 总版技术专家分月排行榜第三
-
-
微软MVP
2013年7月 荣获微软MVP称号
2012年7月 荣获微软MVP称号
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
2005年1月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
-
-
红花
2003年9月 VB大版内专家分月排行榜第一
2003年8月 VB大版内专家分月排行榜第一
2003年7月 VB大版内专家分月排行榜第一
2003年6月 VB大版内专家分月排行榜第一
2003年5月 VB大版内专家分月排行榜第一
2003年4月 VB大版内专家分月排行榜第一
-
-
http://support.microsoft.com/default.aspx?scid=kb;EN-US;266767
HOWTO: Set Which Printer Is the System Default Printer