说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何改变 Windows 预设的打印机

HTML文档下载 WORD文档下载 PDF文档下载
VB如何改变 Windows 预设的打印机


在 VB 里面, 原本改变预设打印机的方法是:(假设安装有两种打印机(驱动程序))
Set Printer = Printers(0) ' 将预设打印机设定成第一种打印机
Set Printer = Printers(1) ' 将预设打印机设定成第二种打印机
但实际上以上叙述有时候不会成功(原因不详), 为了能够成功地改变预设打印机,以下是调用 Windows API 的方法:(补充说明: 此一解决方案适用于 Windows 95, 至于 NT 设定预设打印机的方法请叁考 98/04/05 的每周小技巧)
1. API 的声明:
Const HWND_BROADCAST = &HFFFF&
Const WM_WININICHANGE = &H1A
Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
Private Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
注:如果以上的声明放在「一般模块」底下, 应在 Const 之前加上 Public 保留字, 并且将 Private 保留字去掉。
2. 程序范例:
PrinterName = "您想设定的打印机名称"
Dim S As String, length As Long, hKey As Long
S = String(80, Chr(0))
length = GetProfileString("devices", PrinterName, "", S, Len(S))
S = Left(S, length)
Call WriteProfileString("windows", "device", PrinterName & "," & S)
Call SendMessage(HWND_BROADCAST, WM_WININICHANGE, &H7FFF&, ByVal "windows")
以笔者的所安装的打印机为例, 含有 "HP LaserJet 4L" 及 "HP LaserJet 5L (Traditional)" 两种, 若想将预设打印机设定成 "HP LaserJet 4L", 则须将以上程序的「PrinterName = "您想设定的打印机名称"」改成:
PrinterName = "HP LaserJet 4L"



最具创新力公司50强:耐克居首 Web如何成为另一个应用商店 Adobe发布Photoshop1.0.1源代码 大数据时代正在到来 微软CFO:我们的移动战略没有“B计划” TIOBE 2013年2月编程语言排行榜:历经十月Java重返第一 为让用户亲身体验产品 谷歌年底或开零售商店 谷歌推Chrome API支持HTML5实现本地离线数据存储与同步 Ubuntu开发者预览版将于月底开放下载 因Java漏洞,Facebook遭受恶意软件攻击但未泄密 HTML5预测 取代本地App将成为可能 2013年最佳实习企业:微软仅居第三 助力响应式设计:Adobe发布最新HTML5工具包 VMware控告Hortonworks恶意挖角 2013年大数据真谛:实时分析与批量处理 微软招聘信息证实Windows Blue项目正在推进 研究人员正开发永不会崩溃的计算机 Google:开发者应尽早进入可穿戴式计算 Chrome OS身世及其创始人之谜 谷歌举办Glass Foundry黑客马拉松活动 获80款Glass应用 政府和法律的干预拖慢了云计算发展 AMD打造开放的异构计算标准? Podcasts:苹果史上最烂iOS应用 烂过iOS Maps 日本游戏开发公司谈:如何在激烈的APP世界立足 VC不会告诉你的8件事 Reddit宣布将接受虚拟货币Bitcoin付款 OneID创始人:双因素身份验证无法保护Twitter Opera放弃自家内核转投WebKit的背后 Amazon强攻私有云市场,目标锁定银行 微软的24年数据中心之路 Flurry:约会应用男同性恋用的最多 关于远程控制的一个问题 那里有PB6.0可供免费下载? 关于 电视卡 压缩MPEG文件的问题 CComboBox为何不能下拉,属性已设为Drop List 菜鸟问题,怎样用photoshop画出的矩形有3D边框?没分了,请帮忙 急!磁盘检测出错?在线 有关限制插入操作的问题(SQL Server 2000),救急! 蓝星梦工厂的电视卡 怎样把"34444"->34444? 构造函数初级问题 求串口联网方法! 爱情和事业是不是真的水火不容不可兼得??? 窗体里的数据能不能排序呢 救急,为什么我设置的fnOpenModal参数无效? 如何修改listview中的值? 经常去联众下围棋的兄弟进来,问个问题 用jbuilder怎样把htc文件打包到web application中去? 求助高手指点:用vb实现把结果输出到已定制的word表格中 用200百分问个很菜的问题 关于超星的问题 探讨:如何把软件开发工作为我们一生的事业 ocx问题?参数传递 用200百分问个很菜的问题 请问谁能告诉我一个制作从模糊到清晰运动的源代码或地址? 改变对话框中菜单区的背景色,急 弱智问题:我修改一个打印报表的数据窗口格式,修改后的新问题是它每次打印时接着纸的最上面, IE不能打开新窗口。是什么道理? java下如何得到当前程序(application)的路径?很急!! 组件调用问题? 初学者问题, 简单!! 为什么struts的中文资料如此之少??哪位知道有哪些中文书籍?电子书最好!! 我想做一个报表之类的东西,能在网页上显示,大家给点提示,有现成的例子最好,先谢了 请教各位大大 一个关于消息映射的郁闷 如何在Remote Data Module中使用ADOCommand? 真失败...关于优化pl/sql的问题 为什么名字空间下没有ADO 如何获得一个文件的完整URL地址? 谁能详细的讲讲我不明白的例子。我开ID送1000分。我把ID给费了。一定要搞懂 Applet从html中读取参数信息????? 在win98里可上网,但为什么不能查看网络邻居的属性?(在线等!!!) 关于超星的问题 有谁知道win2003+sql2000的问题? 怎么删除表中列的DEFAULT啊??? 高手请进,将程序加为服务 关于邮件服务器 组件编写中的问题--如何显示图标 记得以前学计算机的热情很大,并且非常希望有一台计算机,可是现在机器有了,却没有了以前的热情,经典书买了一堆却都没有看,我在想到底要不 关于超星的问题 大家装了windows server 2003么?怎么样啊?讨论一下好么!! 救救我吖!!怎样在oracle8.0.5中直接添加数据!!高分!急!! 朋友,就是紫荆花错开集结后以什么样的姿态绽放?(用文中原句回答) 是那一句? 当初喜欢她,想追她,给她打了几次电话,她又不接,然后我就放弃了.现在她又会来看我.但是回去之后她也没再说什么了,也没给我打电话,我也再没给她打过电话了, 现在全世界最残暴的人是谁 求往而不可追者年也!去而不可见者亲也!的原始出处? 谁能帮我解释:女人心海底针.谁能帮我解释:女人心海底针.谁能帮我解释:女人心海底针. 拟人的修辞手法 谢谢您的解答.谢谢了… 女人心海底针, 为什么傲游浏览器打开土豆是这样说明403 ForbiddenYou don't have permission to access the URL on this server.Sorry for the inconvenience.Please report this message and include the following information to us.Thank you very much!Server:a 英语翻译The thing gone with no return,time,that is; and that the one lost with no return,understand,next of kin.这么翻贴切吗?求权威解答, 修辞的用法? 帮我查矛盾原理方法论 南山区在深圳市属于市中心吗? 修辞的各种用法?带上例子 玩命猜图116关是什么呀 哪位能翻译下:热烈欢迎来自世界各地的滑雪运动员来长春参赛 谢谢啦 语文修辞的总体用法~常用的就行~本人在此谢过了~ 玩命猜图116关是什么?求助! 根据相对论,电子在10*10^6V电压的电场中加速,则m= mo ,c 地球上最小的动物是什么?不知 了解修辞的用法和意义 第二问不会,作疯了,k 无法解释怎可报尽亲恩 排比修辞的用法 树欲静而风不止,子欲养而亲不待也.往而不可追者,年也;去而不可得见者,亲也. 宜将剩勇追穷寇,不可沽名学霸王,具体要每个字解释清楚! 请问组织化分为很多种吗?那农民组织化有哪些模式呢? 在《树欲静而风不止》中,从“往而不可追者,年也;去而不可得见者,亲也.”一句中能悟出怎样的道理? 往者不可留,逝者不可追的意思? 组织化推动的定义 如何在百度随便搜几个词,百度出现你要找的是不是*****(你的名字)之类的, 往者不可追,来者犹可惜. 凡曝沙之鸟的“之”什么意思? 卧怎么组词 要多,格式随便 英语翻译最好是双语的对比版 满井游记凡曝沙之鸟的凡的意思 找一些清淡冷漠啥都无所谓的词语 谁知道张学友唱的女人心我喜欢着首歌,但我不会英文,谁能用中文字标出读音, 商鞅变法与“管仲相桓公”相比较,它所产生的不同于“相桓公”的作用是什么?管仲相桓公,霸诸侯,一匡天下. 结合历史与现实,谈谈中国为什么要走和平发展的道路 翻译张学友的 女人心 !最好把中英都带上! 凡鸟偏从末世来,都知爱慕此生才.写的是谁? 我国走和平发展道路是由我国的国家利益和国家力量决定的 ,这是不是错的,为什么我只想知道是不是错的 英语翻译如题,请英语好的朋友帮帮忙!把张学友的《女人心》翻译成汉语版的如:HELLO 翻译成 :哈楼还如:Conrazon De Melao,Melao Melao Melao 苦恼手的没老,没老没老没老.就是要学着唱的 ,就是苦于 商鞅变法与 管仲相桓公 相比较,它所产生的不同与 相桓公 的作用是什么 一个原来静止的电子经过100V的电压加速后它的初动能为多少?质量改变了百分之几?相对论教材的课后题 张学友的中文翻译最好是一句中文一句英语的翻译,谢谢了~ 商鞅变法与“管仲相恒公”相比较,他所产生的不同于“相恒公”的作用是什么? 往而不可追者 年也 去而不可见者 亲也 含义是什么 用“通”字组词,意思是普通 《动物世界》和《走近科学》现在还有播出么,如果有的话,请问是什么具体时间呢, 追问风柔,雨润,花好,月圆,幸福生活日日甜!东去,似水,如烟,一年,( )到眼前!祝( )快乐,阖家幸福!          填节日 通表示没有障碍,穿得过去的意思能组什么词语 电路,喇叭电动玩具喇叭声音小给孩子买了个遥控的小车,带个小喇叭,里边有几首歌,刚买来充好电,音乐声音特别大,正常关机,再次打开的时候声音就变小了,好像是有人把音量调小了一样.音质 风摆荷叶, “女人心, 模拟汽笛声的电路,最好555,或分立的 Y 葡萄架,苹果园,李苦对瓜甜,风习习,雨绵绵,地北对天难 女人心海底针是什么意思? 为什么说人是世界上最善良,又是最残忍的高级动物? 韩国称重启金刚山旅游需首先保障游客安青岛回应“经适房窗户是画的”:装饰性美俄官员将会晤联合国特使 助推叙问题日本将小学英语教育提前两年 为培养国俄罗斯一男子索爱遭拒 掐死女学生获刑日式料理或将成非物质文化遗产 已通过中国周边的阳关道和新亮点法女艺术家创“女版兵马俑”讽刺重男轻英皇室5人出席小王子受洗 教父母选择韩首尔大学医院工会罢工 抗议大搞扩建福岛核电站排水沟雨水辐射量激增 创下美警方误将中国灯笼当手榴弹致地铁站关“中国动力”吸引辛格访华中国与中东欧青年政治家论坛在京开幕沪指重挫1.25% 大消费普跌银行独专家称地下水九成遭污染 修复一亩地最中联重科A股收跌2.94% H股股价俄富豪赠女友奢华电子香烟 镶246颗俄媒称中国和印度商定定期举行联合军演意大利父子专制冒牌名酒遭警方查获 将星巴克回应售价质疑 称在中国利润不比英媒:数百名瑞典人试行六小时工作制 标题导航页面不存在或已经删除标题导航页面不存在或已经删除标题导航页面不存在或已经删除欧联:皮尔洛任意球尤文2:1获胜 总标题导航标题导航页面不存在或已经删除标题导航标题导航农民工中双色球500万大奖标题导航希拉里演说时遭女子丢鞋 闪身躲避页面不存在或已经删除招行理财产品收益走高标题导航页面不存在或已经删除标题导航
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘