以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取所有打印机  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=179352)

--  作者:2900819580
--  发布时间:2022/8/19 16:38:00
--  [求助]获取所有打印机
Dim cmb As WinForm.ComboBox = e.Form.Controls("ComPrintSet")
For Each p As String In InstalledPrinters
    cmb.Items.Add(p)
Next
下拉是空白的。

图片点击可在新窗口打开查看此主题相关图片如下:081902.png
图片点击可在新窗口打开查看


--  作者:lshshlxsh
--  发布时间:2022/8/19 16:50:00
--  
Dim s As String
For Each p As String In InstalledPrinters
    s = s & "|" & p
Next

--  作者:有点蓝
--  发布时间:2022/8/19 17:07:00
--  
代码放到窗口afterload,我测试没有问题