以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于打印机检测  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7447)
--  作者：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()

--  作者：狐狸爸爸
--  发布时间：2010/6/24 10:34:00
--  

InstalledPrinters

 

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

 

示例

 

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

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

 

 

至于是否打开，没有办法