以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]菜单栏的组合框控件能不作为下拉列表，列出当前安装的打印机  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85597)
--  作者：99473593
--  发布时间：2016/5/30 0:02:00
--  [求助]菜单栏的组合框控件能不作为下拉列表，列出当前安装的打印机

求助：菜单栏的组合框控件能不作为下拉列表，列出当前安装的打印机，如果能代码及打印按钮代码改怎么写啦

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:菜单栏的组合框控件能不能列出当前安装的打印机.foxdb
--  作者：大红袍
--  发布时间：2016/5/30 0:35:00
--  

菜单不可以做下拉列表。

 


Dim dyj As RibbonMenu.ComboBox = RibbonTabs("功能区1").Groups("功能组1").Items("组合框1")
For Each p As String In InstalledPrinters
    Dim b As New RibbonMenu.Button(p)
    b.Text = p
    dyj.Items.add(b)
Next

-----------------打印

 


Dim dyj As RibbonMenu.ComboBox = RibbonTabs("功能区1").Groups("功能组1").Items("组合框1")
CurrentTable.PrintInfo.PrinterName = dyj.Text
CurrentTable.Print(True, False)

 
--  作者：99473593
--  发布时间：2016/6/1 9:52:00
--  

谢谢，老师，完美解决了