打印机名称赋值错误
我有2个打印机,\\192.168.0.37\EPSON LQ-730K ESC/P2 与 \\192.168.0.4\hp LaserJet 1010
当我将\\192.168.0.4\hp LaserJet 1010设为默认打印机时,出现以下画面,让我选择打印机
我选择了\\192.168.0.37\EPSON LQ-730K ESC/P2,但是最后到类模块这段赋值错误
vb_print.rar
(6.89 KB)
不等于\\192.168.0.37\EPSON LQ-730K ESC/P2,错误,
此段代码为strNewPrinterName = UCase$(Left(DevMode.dmDeviceName, _
InStr(DevMode.dmDeviceName, Chr$(0)) - 1))
这段代码影响后面的判断
For Each objPrinter In Printers
If UCase$(objPrinter.DeviceName) = strNewPrinterName Then _
Set Printer = objPrinter
Next
求指导谢谢
不知为什么,还请大师指导一下,
[ 本帖最后由 w360989426 于 2014-3-24 12:25 编辑 ]