Foxtable(狐表)用户栏目专家坐堂 → 下拉列能列出所有已安装的打印机名称


  共有10700人关注过本帖树形打印复制链接

主题:下拉列能列出所有已安装的打印机名称

帅哥哟,离线,有人找我吗?
annan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:105 积分:1004 威望:0 精华:0 注册:2011/4/30 17:19:00
下拉列能列出所有已安装的打印机名称  发帖心情 Post By:2011/8/20 18:07:00 [只看该作者]

示例

在命令窗口执行下面的代码,可以列出所有已经安装的打印机名称:

 

For Each p As String in InstalledPrinters
    Output
.Show(p
)
Next

 

 

我希望用到窗口中,下拉列能列出所有已安装的打印机名称,点按钮,将文档使用选择的打印机名称进行打印

 

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:实验.table


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/20 18:59:00 [只看该作者]

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
For Each p As String In InstalledPrinters
   cmb.Items.Add(p)  
Next

 回到顶部