主题：怎么判断指定的打印机是否存在,请教老师

 查找，比较。

http://www.foxtable.com/help/topics/1601.htm

呃……应该把参数跟所有的打印机名比较吧？

Dim ptn As String = Tables("打印参数")(0)("打印机")

dim canNotFind as boolean = True

For Each p As String In InstalledPrinters

     If ptn = s Then
         canNotFind = false

     End If

End IfNext

if canNotFind then

    MessageBox.Show("未找到打印机!","温馨提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)

end if

 或者试试这样。

Dim ptn As String = Tables("打印参数")(0)("打印机")

dim canNotFind as boolean = True

For Each p As String In InstalledPrinters

     If ptn like "*" & p & "*" Then
         canNotFind = false

     End If

End IfNext

if canNotFind then

    MessageBox.Show("未找到打印机!","温馨提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)

end if

 在网上搜索到一段简单的代码。检测是否可用。但是，如果要检测是否连接或者打印的话，就需要去测试一次打印才能知道的。

Dim ps As New Printing.PrinterSettings
Dim printName As String
For Each printName In printing.PrinterSettings.InstalledPrinters
    ps.PrinterName = printName
    output.show( ps.IsDefaultPrinter & ps.IsValid)
Next

楼主，我查了一下，打印机是否被连接，电脑是无法检测的。你这个问题无解了。

这些状态都是无效的，唯有检测一次打印机工作以后，才可以确定是否有连接的。这样就比较麻烦了。