主题：选择打印机

此主题相关图片如下：1.jpg

InstalledPrinters
返回一个字符串集合，包括所有已经安装的打印机的名称。
示例
在命令窗口执行下面的代码，可以列出所有已经安装的打印机名称：
For Each p As String in InstalledPrinters
    Output.Show(p)
Next

可是InstalledPrinters列出来的打印机名称怎么赋值给ComboBox1呢？

 

Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Text = "Hello Foxtable"
doc.Body.Children.Add(rt)
Doc.PrinterName = "HP LaserJet 6L"   '指定打印机,这个部分等于"ComboBox1"的值就可.你测试一下
doc.Print()

我想在组合框中显示出来已安装的打印机名称，可不知道代码怎么写？真是不好意思！

 狐狸爸爸，已经告诉你了呀，销做些修改。

dim s as string = ""

For Each p As String in InstalledPrinters
    s = s & p & "|"

Next

s = s.trimEnd("|","")

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = s

 

感谢大家无私的帮助！我什么时候能帮助你们？

选择打印机的地方，选择完了以后就不改变状态.怎样能做到?现在是每次进去组合框里的内容都是空的,都得去选一次打印机

做个系统设置遍历，然后保存到这个变量中就ok了。

没太听明白,能写下具体代码吗?