也可做一个按钮来获取打印机
Forms("窗口1").Show()
For Each p As String in InstalledPrinters
Dim Tex1 As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
Tex1.value = p & Chr(13) & Chr(10) & _
Tex1.value
Next
取得后复制到控件的自定义项目中便可以
还可以在窗口的
AfterLoad事件中放入以下代码,便可以自动设置列表项目了
For Each p As String in InstalledPrinters
Dim Tex1 As WinForm.TextBox = e.Form.Controls("TextBox11")
Tex1.value = p & Chr(13) & Chr(10) & _
Tex1.value
Dim com6 As WinForm.ComboBox
com6 = e.Form.Controls("ComboBox6")
com6.ComboList = Tex1.value &"|"
Next
[此贴子已经被作者于2009-7-26 16:35:41编辑过]