Dim 打印机 As WinForm.ComboBox = e.Form.Controls("ComboBox1")Dim clist As String = ""For Each p As String In InstalledPrinters clist &= p & "|"Next
打印机.ComboList = clist.TrimEnd("|")