标题：关于打印机检测

1楼

sophia 发表于：2010/6/24 10:32:00

在专业报表中指定打印机，指定的打印机如果未打开或者不存在，想在窗口中提示：打印机未就绪。怎样实现？

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"
doc.Print()

2楼

狐狸爸爸 发表于：2010/6/24 10:34:00

InstalledPrinters

返回一个字符串集合，包括所有已经安装的打印机的名称。

示例

在命令窗口执行下面的代码，可以列出所有已经安装的打印机名称：

For Each p As String in InstalledPrinters
Output.Show(p)
Next

至于是否打开，没有办法

共2 条记录, 每页显示 10 条, 页签: [1]