Dim str As String = ""For Each p As String In InstalledPrinters str &= p & "|"Next
Dim cmb As WinForm.ComboBoxcmb = Forms("打印设置").Controls("ComboBox1")
cmb.ComboList = str.trim("|")
加好友 
发短信
Post By：2016/5/22 15:27:00 [显示全部帖子]
