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

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"



颠覆移动营销世界的女王Yunha Kim为女性CEO正名 Google揭露“仙女座”虚拟网络,及分散和集中架构之辩 DHTMLX Touch:开源的HTML5和JavaScript框架 Supercell下一城:《海岛奇兵》续写芬兰手游传奇 开发者盛宴 2014 Unity亚洲开发者大会盛大开幕 微软全球中国云业务总经理:云落地中国的最大难题 PTVS 2.1 Beta版发布 Visual Studio的Python工具 【走近院士】李兰娟:云计算与大数据将成为医疗改革利器 迭代不等于学习,聚类分析也不等于机器学习 Office大肆杀戮,已攻下Chrome Web Store Bug都补好了?Google发布Android 4.4.3更新 微软被传收购Xamarin 强势推进移动新战略 挑战传统金融业务 Facebook进军移动支付领域 亚马逊AWS需解决的五项问题 腾讯自曝:大数据平台的秘密 继Cloudera之后,MapR宣布对Spark的完全支持 企业实施商务智能的6个致命错误 《近匠》HBuilder:如何用JS调用几十万原生API? littleBits新推Cloud Module,普通人也能DIY智能硬件 如何创建浮动式标签模式? Office 365正式落地中国——移动为先,云为先 .NET Native:C++的性能 C#的产能? Arduino联合创始人Tom Igoe:创客,因何而创 【走近院士】高文:多媒体大数据的影响及面临的挑战 微软SQL Server 2014三大新特性:集成内存OLTP、BI和混合云搭建 Linux将会统治桌面端的7个原因 Intel首席科学家Randolph Wang:详解Edison AMD Mantle再添新作,引发下代GPU架构猜想 谈DAM决策,自建还是SaaS 证据显示:Linux战争已经转移到OpenStack RestKit:iOS开发必备,告别众多无聊代码 紧急问题!Crystal Report是否不支持中文的? 如何得到系统的开关机时间(在WIN2K下)???急 怎么实现这种嵌套的查询结果?(急急求救) 对象的handle,hwnd和指向此对象的指针之间是什么关系??? JavaBean+jsp+Tomcat4.0?把我搞醉了 一个非常棘手的问题,都吃不下,睡不着了,帮忙啊,分不够的话,再开数贴。 高分请问:会跳舞(有音乐)的圣诞老人(玩具,大约有电脑显示屏一般高度)在上海买多少钱,急急急 已有CBitmap m_Bitmap,如何求对应的HDIB 在音乐文件中加入一个代码…… 这种情况下如何用进程条控件? 看了一通sps的sdk,看的我头大的不得了,看来英语还是不过关阿 我要把格林威治平时转换成当地时间用什么函数呢???? 用SQL语句显示记录集中的倒数200条记录,及显示从第几条到第几到的记录?? 问:vb.net采用的是c#,那么在ms.net里面到底有没有visual c#.net??? 高手请进!ADO问题 给我已给在javabean里面使用HttpServletRequest对象的例子好吗?谢谢你了,具体到里面看看可以吗? 在office2000中打印来自matlab53的图形,总是提示word内存不足,word自行关闭。请问为何? 开开关关的窗口 用VC编写操纵数据库方面的COM组件有前途吗? 请问如何将CString中的字符串赋给char* ADODB.Connection问题,急!! 急急! 在javabean里面使用HttpServletRequest对象的例子好吗?谢谢你了,具体到里面看看可以吗? 河南的程序员考试成绩出来了没有?都快把大家急疯了! 一个类的四个问题?this指针等等,欢迎大家的光临。 请大家帮个忙!我的PARADOX数据库有660M,但是在读取的时候出现‘BLOB HAS BEEN MODIFIED‘!! 请问哪里有ado数据库引擎下载,谢谢~! BDE错误$2109 如何得到“我的文档”里的IShellView指针? SOS!各位帮帮我呀!“实现汉诺塔” 幫忙看一下下面這段代碼有什么問題? 改进后的开开关关窗口特别酷 请问在VB6与VB.NET在数据库方面有多大的区别呀?? 关于C语言 寻找将 AUTOCAD 文件格式转换成 PDF 格式的软件 谁有包含开发接口的OCR软件? 求助:没有紧急修复软盘,怎样恢复win2kserver的双启菜单。 请问怎么得到DATAGRID1中记录的总条数! 转发:一粒沙子的爱情故事 公司發過年禮物了 ,哎 ,原來是一塊石英表 ,雖然是情侶表 ,卻只發一塊 ,不是一對 ,你們呢!..... ??有解密高手吗?或者哪里有这样的论坛?? 怎样用多线程显示多个form? VB串口发送大数据量时其他程序没有反应? 这句sql语句怎么写?低手请教! 数据库高手请进,报表问题!!! 请介绍VC测试内存泄漏的好工具. select number from table需要分别得到所有的值,如果做? 请问如何将下载的控件加到delphi的控件面板上?先谢谢了!!! 一个form里面如何将6个radiobottom 分成两组? 开开关关IE窗口的小程序 请各位高手介绍一下win2K,wingate,sygate这些做上网服务器各使用什么技术?NAT?SOCK5? 甲乙两站相距360Km一列快车从甲站开往乙站,每小时60km,快车行驶半小时后,另外一列车从乙站,每小时行驶48km,快车行驶几小时与慢车相遇? 一水,用7个大瓶和5个小瓶装共8.8克,用5个大瓶和3个小瓶共5.4克,用3个大瓶和1个小瓶共多少?最好不列方程 张师傅把150千克的青菜运到集市上去卖,其中的5分之3按每千克2.40元卖出,剩下的按原价的75%卖出这些张师傅把150千克的青菜运到集市上去卖,其中的5分之3按每千克2.40元卖出,剩下的按原价 动物与动物之间的天敌有哪些? 孵化场该怎么和种鸡厂和养鸡场合作?我们是开孵化场的!一直都是采购种蛋加工孵化出来送到经销商或者养殖户,谁有更好的方法让我们和种鸡厂能合作起来? 蛇的天敌是什么?什么吃它,他怕什么植物嗯 蛇的天敌忘了是什么动物了长得很像松鼠?长得很小不是黄鼠狼,有点象老鼠蛇不是他的主食只有饿急了才吃 养鸡场计划购买甲,乙鸡苗共2000只,甲每只2元,乙每只三元相关资料表明:甲 乙两种小鸡苗的成活率分别为百分之94和百分之99,若要使这批小鸡苗的成活率不低于百分之96且买小鸡的总费用最小 如何在报纸或杂志上发表文章?想在报纸或杂志上发表文章,但不知道如何投稿,教教我吧,我很笨.最好投稿(寄信),邮件勉强.注意事项也要写.提供点地址有没有 “城市快报”我还是比较喜欢 眼睛蛇的天敌是什么动物 养鸡场发生过新城育病毒空鸡场该怎么消毒才能进鸡苗? 在期刊上发表文章想在期刊上面发表一篇文章,可是,自己对这个也不是特别了解,这个是怎么个顺序呢 蛇的天敌是什么动物 蛇的天敌是什么? 新手在杂志或报刊上发表文章~请问新手想在杂志或报刊上发表文章需要什么条件?帮忙推荐一下致力于培养新手的报刊杂志~那个,能不能推荐一下报纸、杂志…… 怎么样办一个养鸡场山区养殖草鸡!按10000只的规模,大概投资多少钱?前景如何?请高手和专家指点指点!感谢! 蛇的天敌是? 请问,在《萌芽》杂志上发表文章有稿费吗? 爷爷在自家墙外围了一个梯形养鸡场,围养鸡场的篱笆总长是25米,其中一条边长8米,求这个养鸡场的面积. 客货车两辆车同时从上海和南京相对开出.客车每小时行62km,货车每小时行60km,精工2.5小时两车还相距4.5km相遇.铁路长? 大、小两瓶油共重2.7千克.大瓶用去0.3千克后,剩下的油与小瓶的油比为3:1,大、大、小两瓶油共重2.7千克.大瓶用去0.3千克后,剩下的油与小瓶的油重量比为3:1,大、小瓶原来各有油多少千克? 养鸡场主要用什么消毒? 客车和货车同时从相距438km的两地相对开出,客车每小时行60km,货车的速度是客车速度的4/5,几小时后两车相距6km? 蛇的天敌如果有是什么呢? 养鸡场如何消毒 客车与货车同时从相距430km的两地相对开出.客车每小时行60km,货车速度是客车速度的五分之四.几小时后两车相距70千米? 蛇的天敌有哪些?(详细点) 养鸡场消毒池多久换一次? 客、货两辆车同时从上海和南京相对开出.客车每小时行62千米,货车每小时行60千米,经过2.5小时两车还距4.5千米相遇.上海到南京的铁路长多少千米? 某养鸡场可同时饲养肉食鸡和蛋鸡两种鸡,由于条件限制,若单纯饲养肉食鸡最多饲养9000只,若单纯饲养蛋鸡最多饲养6000只.(1)若饲养蛋鸡x只,则最多还能饲养肉食鸡y只,直接写出y关于x的函数 建一个一W只的养鸡场要多长时间 客车与货车从AB两地相对开出,客车每小时行60KM,货车每小时行全程的1/15,相遇时客车所行的路程是货车的5/4,求AB的距离 怎样区分饲料鸡生的蛋和家养鸡所生蛋很难呢 养鸡场地如何消毒? 狼的三大天敌是什么 某一实验室有大小玻璃瓶五十个,每个大瓶可装水三千克,每个小瓶可装水一千克 ,大瓶比小瓶多装30千水,问大小瓶各有多少个? 世界上的昆虫种类为什么那么多.让我们查查为什么昆虫种类那么繁多,麻烦大家拜拜忙啊. 请问狼有没有天敌,是什么?我好象没有看到过有什么动物吃狼的,请问狼有没有天敌,有的话是什么? 有大小两个玻璃瓶,小瓶能盛6千克的水,如果小瓶的水全倒入大瓶,则只能倒大瓶的三分之二,如果把大瓶盛二分之一的水倒入小瓶,则能倒小瓶的几分之几? 一辆客车从甲地到乙地要6小时,一辆货车从乙地到甲地要8小时,现在两车相向而行相遇时离乙地60KM两地相距两地相距几千米 狼和狗是不是天敌? 养鸡厂一天能收获鸡蛋200个,但养鸡厂仅有一台最多能称5千克物品的盘称,你能想办法帮养鸡厂估算一下一天大约能收获鸡蛋多少千克吗? 一列客车,从甲地开往乙地,去用每小时60km,返回时每小时90km,往返平均速度是多少?(60+90)/2180*275km 办养鸡场需要什么条件 土鸡蛋,比饲料养鸡鸡蛋价格高~营养也高? 客车从甲地到乙地要6小时;货车从乙地到甲地要8小时.两车同时分别从两地出发相对开出,相遇时货车行了240km.甲乙俩地相距多少千米?算式 要仔细 急 客货车同时从AB两地相向开出客车每时行60km货车每时行全程的1/15相遇时客货两车路程比4;5两地相距多少KM 三(1)班有30人订语文报有20人订数学天地有8人这两种报纸都订了订报纸的同学共 我想知道养鸡场怎么办?需要什么什么条件?具体知道养鸡场的规模怎么确定、平面怎么布置、成本预算、怎么向政府贷款? 从甲到乙地客车需12小时,货车需18小时.客货车同时相对开出,相遇时客车距终点还有176km.两地相距多少km?Quickiy! 蛇的天敌有哪些? 北京和呼和浩特相距660km,一列慢车从呼和浩特开出,每时40km,一列快车从北京开出,每时60km,两车同时开两车同时开出,相向而行.如果快车先出发一小时,慢车才开出,快车出发几分后两车相遇?( 熊的天敌除了人类,还有什么? 李师师把120千克青菜运到超市去买,其中3分之2按每千克2.4元卖出,剩下的打8折卖出.这些青菜一共卖出?元 甲乙两地相距162km,一列慢车从甲站开出,每小时走48kn,一列快车从乙站开出,每小时走60km,1.两列火车同时相向而行,多长时间可以相遇?2.两车同时反向而行,几小时后两车相距270km?3.两车相向而行, 狼为什么会是人们的天敌 张伯伯把120千克青菜运到集市上卖,其中三分之二按每千克2.4元卖出,剩下的打八折,一共卖了多少元? 甲、乙两地相距360km,慢车从甲站开出每小时行驶40km,慢车开出40min后,快车从乙站开出,每小时行驶60km.问:慢车开出多少小时后两车相遇?(方程) 一个小瓶,装满水时总质量为32克,装满酒精时质量为28克,求这个小瓶的质量和体积.()酒精的密度为0.8乘10*3千克/立方米 120千克青菜运到集市上,2/3按每千克2.4元卖出,剩下的打八折出卖,这些菜一共卖了多少元
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn