| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 552 人关注过本帖, 1 人收藏
标题:打印机名称赋值错误
取消只看楼主 加入收藏
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
结帖率:84%
收藏(1)
已结贴  问题点数:50 回复次数:6 
打印机名称赋值错误
图片附件: 游客没有浏览图片的权限,请 登录注册

我有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 编辑 ]
搜索更多相关主题的帖子: 打印机 
2014-03-24 12:19
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
大侠们,来救救我啊
2014-03-24 16:48
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
选择\\192.168.0.4\hp LaserJet 1010不会出现这样的错误,就是选择\\192.168.0.37\EPSON LQ-730K ESC/P2会出现这样的错误,这是为什么啊。。版主来救救啊
2014-03-24 19:59
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
回复 4楼 lowxiong
版主,您好,我已经将ESC/P2 给去掉了,结果测试正常,但是有一个问题,我自己明白,但是我开发给别人用,并不能跟别人说把打印机名字改一下才能用,别人不懂这个东西,敢问版主还有其他方法可以解决这个问题!
2014-03-25 14:29
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
回复 4楼 lowxiong
版主,有解决方法吗?
2014-03-25 19:53
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
回复 7楼 lowxiong
应该不会啊。。那前面的IP地址不是没有发生错误么
2014-03-25 21:51
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
好吧
2014-03-26 18:16
快速回复:打印机名称赋值错误
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035311 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved