[浏览完整版]
标题：选择打印机
1楼
sophia 发表于：2010/7/19 12:42:00
此主题相关图片如下：1.jpg
2楼
狐狸爸爸 发表于：2010/7/19 12:46:00InstalledPrinters
返回一个字符串集合，包括所有已经安装的打印机的名称。
示例
在命令窗口执行下面的代码，可以列出所有已经安装的打印机名称：
For Each p As String in InstalledPrinters
Output.Show(p)
Next
返回一个字符串集合，包括所有已经安装的打印机的名称。
示例
在命令窗口执行下面的代码，可以列出所有已经安装的打印机名称：
For Each p As String in InstalledPrinters
Output.Show(p)
Next
3楼
sophia 发表于：2010/7/19 13:08:00可是InstalledPrinters列出来的打印机名称怎么赋值给ComboBox1呢？
4楼
blackzhu 发表于：2010/7/19 13:53:00Dim
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()
5楼
sophia 发表于：2010/7/19 14:05:00我想在组合框中显示出来已安装的打印机名称，可不知道代码怎么写？真是不好意思！
6楼
baoxyang 发表于：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
7楼
sophia 发表于：2010/7/19 15:44:00感谢大家无私的帮助！我什么时候能帮助你们？
8楼
sophia 发表于：2010/8/8 15:10:00选择打印机的地方，选择完了以后就不改变状态.怎样能做到?现在是每次进去组合框里的内容都是空的,都得去选一次打印机
9楼
qtcks 发表于：2010/8/8 15:16:00做个系统设置遍历，然后保存到这个变量中就ok了。
10楼
sophia 发表于：2010/8/8 16:10:00没太听明白,能写下具体代码吗?