主题：[求助]菜单栏的组合框控件能不作为下拉列表，列出当前安装的打印机

菜单不可以做下拉列表。

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

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