- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 选择打印机 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7635)
-- 发布时间：2010/7/19 12:42:00
-- 选择打印机
此主题相关图片如下：1.jpg
-- 发布时间：2010/7/19 12:46:00
--
InstalledPrinters
返回一个字符串集合，包括所有已经安装的打印机的名称。
示例
在命令窗口执行下面的代码，可以列出所有已经安装的打印机名称：
For Each p As String in InstalledPrinters
Output.Show(p)
Next
-- 发布时间：2010/7/19 13:08:00
--
可是InstalledPrinters列出来的打印机名称怎么赋值给ComboBox1呢？
-- 发布时间：2010/7/19 13:53:00
--
Dim
doc As New PrintDocDim rt As New prt.RenderText
rt.Text = "Hello Foxtable"
doc.Body.Children.Add(rt)
Doc.PrinterName = "HP LaserJet 6L" \'指定打印机,这个部分等于"ComboBox1"的值就可.你测试一下
doc.Print()
-- 发布时间：2010/7/19 14:05:00
--
我想在组合框中显示出来已安装的打印机名称，可不知道代码怎么写？真是不好意思！
-- 发布时间：2010/7/19 14:37:00
--
以下是引用狐狸爸爸在2010-7-19 12:46:00的发言：
InstalledPrinters
返回一个字符串集合，包括所有已经安装的打印机的名称。
示例
在命令窗口执行下面的代码，可以列出所有已经安装的打印机名称：
For Each p As String in InstalledPrinters
Output.Show(p)
Next
InstalledPrinters
返回一个字符串集合，包括所有已经安装的打印机的名称。
示例
在命令窗口执行下面的代码，可以列出所有已经安装的打印机名称：
For Each p As String in InstalledPrinters
Output.Show(p)
Next
狐狸爸爸，已经告诉你了呀，销做些修改。
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
-- 发布时间：2010/7/19 15:44:00
--
感谢大家无私的帮助！我什么时候能帮助你们？
-- 发布时间：2010/8/8 15:10:00
--
选择打印机的地方，选择完了以后就不改变状态.怎样能做到?现在是每次进去组合框里的内容都是空的,都得去选一次打印机
-- 发布时间：2010/8/8 15:16:00
--
做个系统设置遍历，然后保存到这个变量中就ok了。
-- 发布时间：2010/8/8 16:10:00
--
没太听明白,能写下具体代码吗?