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

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"



Netflix公布Cassandra新性能:基于AWS的百万次写入每秒 一周消息树:谷歌Android遭遇“颠覆”危机 微软发布新应用Snipp3t,iOS平台首发且无Windows Phone版 TOP10优秀微信开发商随后揭晓 2014微信开发者大会开幕在即 8月12日:PC鼻祖IBM 5150迎来33周年 平板创作3D展现:蒙特利尔大学发明Hyve-3D设计系统 Quick Charge技术解析:关于手机快速充电的那些事儿 性能分析十八招,你用哪一招? 流程在企业内的作用及成熟度 Gartner:至2017年Chromebook销量将增2倍 后稀缺时代思考:机器横行下的人类夹缝求生 TIOBE 2014年8月编程语言排行榜:Swift跌出Top 20 精华回顾!历届MDCC大会精彩演讲与议程汇总 《近匠》Fancy3D:亿级游戏背后的轻量级引擎 假如李小龙是程序员…… Docker已扎根新一代PaaS 三星或发布首款头戴式VR设备Project Moonlight 英特尔亚太研发总经理何京翔:数据化时代背后的智慧 云络网络科技CEO Steve Mushero:游戏行业的云运维 腾讯游戏运营管理中心总监刘栖铜:腾讯游戏云的理想与实践 一号专车产品总监曹景辉:LBS应用仍有无限的创新空间 昆仑游戏总裁张益豪:做好中国游戏的海外代理 游族首席运营官陈礼标:重点打造全球化IP 我是怎么利用微信月收入三万以上的! 我的Y Combinator黑客马拉松之感! 最炫HTML5 JavaScript框架Famo.us融资2500万美元 看板先驱David J. Anderson:看板方法拉动互联网时代敏捷变革 《近匠》增强现实开发团队LegendTech:AR技术现已加入15元豪华午餐 微软新技术:简单修改,手机摄像头摇身变3D深度相机 Black Hat USA安全隐患盘点及黑客奥斯卡颁奖 MDCC免费展位报名火热!数量有限,征集进行中 朋友,帮帮我,About python C 需要一个方法去判断?谁能说说? 请问各位大大北大青鸟APTECH认证培训有什么优缺点,对找工作有帮助吗? 在DELPHI 6中怎样在TADODatset中 锁定一条记录,使它不能移动? 请教:rmi中的server为什么不能注册? 要在机房度过24小时!问:怎么过?(null) 我要在 dos 下用语言描一正玄波形想请教除了描点还有什么好的办法 能不能用PHP在图片上写汉字?!?! 我用<a href="Javascript:History.go(-1);">back</a> 提示 :运行出现错误 ,history 未定义。怎么办? 老问题:为何连接sql anywhere数据库时出现unable to connect database server:unable to start specified database. 一个困扰了我很久的问题,关于对话框关闭的问题! 怎样得到Windows系统的临时路径. 愿用1000求解的,高深问题??? test 关于数据库设计中的权限管理问题? 过六一了,节日快乐!为庆祝塞内加尔胜利散200分 请问!如何对一文本文件一次一行的读出!!! 如何制作类似于marquee的效果 编译问题:为何第一次编译总是出现如下问题? 这段程序我是从书上抄下来的,请问这么会语法错误,100分 100分求如何响应鼠标离开的事件 Delphi的帮助用得我真难受:( 数据库软件在我的机上正常,但在其他机上不正常? 谁有地方下《Delphi高级开发指南》的电子书? 请介绍一下如何在vc++6.0中使用msxml 编译问题:为何第一次编译总会出现以下问题? 将分组字段作为输入参数的存储过程咋写? 怎么样对一个查询结果的某字段作汇总? 报表啊!!!报表。。。----:::::::::::::((((((((((((((((( delphi用BDE控件的SQL语句建立的dbf表,或者batchmove产生的dbf表,无法被其他软件识别,比如foxpro,excel.请问如何解决该问题,在线等待 这是什么原因产生地 DaNiao(鸿雁) 拜托了! 为什么我的Session不管用(解决问题一定给分) 初学编程!想做个系统来练练手,请高手指点我要怎么做才事半功倍?! 我是新来的,很菜的问题,希望大家帮忙!!!! 请推荐一本COM方面的书。 为什么在VC下有些变量名(类型是自己定义的类或结构)调试时候watch窗口里不能看到他的内容? 关于数据库的问题。 如何从imagelist控件中提出图片显示在image控件上 高分求DOS下串口传送文件的算法! 在vb6中我需要一个这样的按钮,该如何实现? 窗口对象的showModalDialog问题 高分求DOS下串口传送文件的算法! 找asp速查手册 怎样不用MFC能写出用MFC写的属性页的效果啊?(就是用CPropertySheet和CPropertyPage的那种效果) 超超高手请进!万分紧急!100大分奉献! datawindow中column得到焦点后有一个焦点框,设置什么属性把它去掉? brinkster.com的问题:网络自由人 急呀,,为什么windows98,建立了拨号连接,却总是说线路忙。100分!!!!! vc是否适合进行网络编程?烦请指教 网络自由人,谢谢你提醒我要小写,已经给你加20分。。。。 古今中外的诗人 画家等都喜爱梅花,为什么?把你的看法写一写. 表现信念理想的诗句, 给悦耳换成另一个词,但意思不变. 古今中外的诗人.画家都喜爱梅花,为什么?大家说说你们的看法这是我的作业 关于理想和信念的富有哲理的句子 古文中有关房地产的句子都有哪些? 古今诗人为什么非常喜欢写梅花 氧气和氢气反应需要注意什么氧气和氢气反应生成水这个反应需要注意的事项是什么? 人们从生物的身上得到启示,发明了许多东西,从鲸的体型设计出 ( ) 北宋诗人林 因喜爱梅花和仙鹤,所以有___之称 毕加索全名?RT 生物是人类的老师.人们从生物身上得到启示,发明了许多东西.如根据苍蝇、蚊子等飞行的情形,研制出 长江黄河干流上各建了那些大型的水电站?分别位于哪个省区范围内?长江黄河的干流上修建了许多的水电站,我知道的有长江三峡水利工程,葛洲坝水电站,和小浪底水利工程,请问还有哪些大型 格尔尼卡:1.对立体主义的绘画方式你感到能理解吗?why?2.怎样用立体主义的绘画方式绘画吗?要交的, 毕加索和平鸽 长江和黄河干流上各建了哪些大型水电站?它们分别位于哪个省(区)范围内快 立体主义画派是于哪年始于法国?着是手机宠物里的问题- - 神经冲动在体内传导时,为什么传到树突后,一定要再经过细胞体? 苏打,小苏打,泡打粉,发酵粉有什么区别?学名与俗称分别是什么 一根圆柱形木材长4米,底面周长1.256米如果每立方米木材重150kg,这跟木材重多少kg? 什么是内流河外流河 写梅花的诗有哪些?他表达了诗人的什么情感? (1)一根圆柱形木材长4米,底面周长是1.256m,如果每立方米木材重150kg,这跟木材重多少kg?(2)小齐生日这天,妈妈为她定做了一个两层的圆柱型蛋糕,每层高6cm,底面直径分别是40cm.20cm,这块蛋糕 小型污水处理构筑物 处理含有食用油污水的隔油池应使用什么设计参数,水力负荷还是流速or停留时间?小型,一般都是餐饮业含油废水.现在遇到的问题是使用水力负荷计算出来的池体容积与使 梅花的诗句!最好是唐代诗人写的. 5*50*50等边角钢每米重量是多少 梵高、莫奈、毕加索分别是什么画派的人? 描写“梅花”的好段 什么气体能与氢气,氧气都发生反应? 流经污水处理构筑物流量是总流量除以个数吗 为什么开水不能烧太久.详细点 有关10克氢气和10克氧气发生反应的问题为何反应生成11.5克水而不是90克?如何比例? 世界名画《和平鸽》的创作者是:A 梵高 B 毕加索 C 达芬奇 D 莫奈 有什么生活用品,是科学家从动物身上受到启示,而发明的 斜管沉淀池表面负荷? 污水处理厂扩建时哪些构筑物要扩建 哪些构筑物是规格保持不变的?变化的构筑物长宽高怎么变化? 从古到今著名的画家有哪些?他们所在的朝代及代表作、风格分别是什么样的?最好用图表的形式 等边角钢L50*50*5每米理论重量为? 神经末梢能否产生神经冲动?能不能呢?在反射弧中,感受器好像是能产生神经末梢的,效应器不能.但是感受器和效应器不都有神经末梢么? 有代表作的画家 电镀废水处理中斜管沉淀池能只设1座吗 氢气和氧气加热 可不可以反应?加热和点燃有啥区别? 画家与他的代表作短一点的,六年级寒假生活中的.欢迎六年级的学友帮忙.谢谢! 斜管沉淀池的表面负荷和vs是一样的吗 12克氢气和氯酸钾加热分解放出的氧气完全反应是,需要氯酸钾.( )A.6mol B.3mol C.122.5g D.245g 炸香蕉是怎么炸的呢?炸的时候香蕉表层涂上的是什么,炸出来那么酥,有什么简单又方便的方法吗 角钢L50*50*5 3.77公斤/米是什么意思 为什么我国西北多内流河,东南部多外流河急用! 根据意思写词语:颜色众多,非常美丽. L50*8的等边角钢理论单位重量是多少 加热氢气和氧气的现象 这件衣服的颜色很艳丽. 关于理想和信念的句子 为什么我国东南部多为外流河,西北部多为内流河 单个神经纤维的长度由多少?每个反射弧只有一个神经细胞传递么 表现信念、理想的诗句如题越多越好 是否可以换成什么词语意思不变 神经元,神经纤维,神经冲动,反射弧都是什么? 有哪一些关于理想或信念的诗句 古文中惊艳的句子
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘