关于自动选择打印机的问题，先谢了

terqm · 发表于 2010-11-16 19:39

'本地IP
Sub test()
Dim Ip$, strComputer$
Dim objwmiservice As Object, ipconfigset As Object
strComputer = "."
Set objwmiservice = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set ipconfigset = objwmiservice.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration ")
For Each IPConfig In ipconfigset
On Error Resume Next
         Ip = IPConfig.IPAddress(0) & ""
Next
MsgBox Ip
End Sub

'外网IP
Sub GetOutIP()
Dim xmlhttp As Object
Dim strURL As String, strTemp As String
strURL = "http://www.ip138.com/ip2city.asp"
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET", strURL, False
xmlhttp.send
If xmlhttp.Status = 200 Then
      strTemp = xmlhttp.responsetext
      strTemp = Mid(strTemp, InStr(1, strTemp, "[") + 1)
      strTemp = Left(strTemp, InStr(1, strTemp, "]") - 1)
      MsgBox "外网IP地址: " & strTemp
Else
      MsgBox xmlhttp.Status & vbCrLf & xmlhttp.StatusText
End If
End Sub

yanjie · 发表于 2010-11-16 22:01

这个问题很复杂，我不会，但是看别人做过，大致方法是：
循环你所有的打印机（包括外网和内网），区分外网和内网，可以用("\\ip\打印机名")
IF Left(" \\168.135.5.1\打印机名 "，5）="\\168" Then
"内网"
else
"外网"
end IF
利用On Error reSume Next错误值来判断是否可以使用，如果
IF Err.Number<>0 Then。。。。。。
表示打印机不能使用！
如果IF Err.Number=0 Then。。。。。。
则打印机能使用，OK！

这是我所有知道的，希望你工作顺利！

[ 本帖最后由 yanjie 于 2010-11-16 22:03 编辑 ]

zhengrui-csb · 发表于 2010-11-18 12:54

奥还是感谢楼上两位高手学习了很多谢谢
也希望会的高手帮忙解答

zhengrui-csb · 发表于 2010-11-30 13:50

谢谢谢谢谢谢谢谢谢谢

lhx120824 · 发表于 2011-1-31 00:27

有关打印机的问题，还没涉及过，以后需要研究使用的。

		自动登录	找回密码
密码			免费注册