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

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"



Web动画图像分解在VB动画设计中的应用 播放 .flc 动画 -VB资料 播放 AVI -VB资料 播放MP3文件 -VB资料 播放背景音乐 -VB资料 播放声音文件 -VB资料 播放资源文件文件中的声音-VB资料 不用ActiveX控件也能播放声音文件-VB资料 VB创建动态图标 电影结束画面的卷动效果-VB资料 二进制操作截取VCD片断 -VB资料 非常VB测声卡 关闭屏幕保护功能,改变屏保等待时间 -VB资料 VB获取桌面窗口图象 红色警戒&终级动员令-VB资料 检查是否安装声卡 -VB资料 将 .flc 动画档放在某一个 hWnd 之中播放 -VB资料 截取屏幕图像-VB资料 开机,自动更换墙纸 -VB资料 控制PC喇叭 -VB资料 利用VB测声卡 利用VB进行多媒体程序设计初步 利用Visual Basic设计多媒体应用程序 满屏播放AVI文件-VB资料 平铺贴图背景 -VB资料 破解WINDOWS屏幕保护密码 -VB资料 巧用VB编程使XMPLAYER自动播放VCD VB取得 WAV 文件信息 趣味撞球VB5应用程序一例 VB如何从"SOUND.DRV"中提取声音 VB如何设定墙纸的显示方式? 荷兰国旗问题 ASP刚学,用什么方式好吗 斑竹!!!!!!!!!!!!!!!! 关于IE浏览 请问vb如何访问foxpro 6.0的数据库,最好有源程序,谢谢. he_cti@163.net 算了,散分 我散,我散,我散散散 散3 发分!!!! 发分!!!!! 发分!!!!!!!! 发分!!!!!!!!!!!! 发分!!!!!!!!!!!!!!!!!!! 请问如何去掉测试版软件的“购买”提示框???急急急急!!! 有关获取HTML中Frames的问题? 给分!!!!!啊 给分!!!!!啊!! 给分!!!!!啊!!!!!! 给分!!!!!啊!!!!!!!!!!!!! 给啊!!!!!!!!!!!!! 不是俺蓄意谋两位帮主的反,实在是 ... APPLET连接数据库。。。(我已经每粉了) 千分散尽不复来!!! 千分散尽不复来!!!! 千分散尽不复来!!!!! 千分散尽不复来!! 千分散尽不复来!!!!!!!! 千分散尽不复来!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!! 用分把灌水乐园咽死!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!!!!! 千分散尽不复来~ 千分散尽不复来~! 请教数据窗口的问题 千分散尽不复来? 千分散尽不复来?! 有LVS_OWNDATA属性的CListCtrl 加图标的问题,25分 在做会员注册时,在添加新数据页,程序一运行就在RS.updata出错,为什么(原程序) 高手请你回答我啦!!!! 我要回家了,第一个给300 哪有msproxy下载????? 请问要怎么样才能在自己写的程序运行时让用户无法使用开始菜单? jdbc的版本 发分!!!!!!!!! 对于初学者,应该学些什么样的数据库? Java的优点 化功大法第一章--散分。 吸星大发第一章--散分 x分之0.125等于4分之1比百分之80要过程 一个数的百分之60是120,这个数是多少 有10-80八个数,把它们分别入两个大圆上的五个圆圈内,使五个数的和为200,应该怎么填 A加A加B加B得于70,A加B等于多少 一个工人要加工120个零件,已经加工了百分之八十,还要加工多少个 地球表面约70%被海洋覆盖,人类为什么还缺水?请说出三个理由. 在三角形ABC中,角A=35°,角B=65°,则角C等于多少? 一个数的百分之60是120,这个数的10分之3是多少? 地球表面约百分之七十被海洋覆盖 人类为什么还缺水 √3+1分之2等于几(要求过程) A,B是自然数,A加B等于35,那么A乘B最大是多少 4.5乘80%等于多少 3—3分之3—2分之一等于多少? a+a+b+b=70 a+b等于几 3+3乘5等于 a 分之2等于b 分之3,那么a :b 等于( ):( a=b,a和b都不等于0,a与b成什么比例 3乘5等于几 10分之1除于10等于多少? 80分制的60和70相当于100分制的多少? 1-三分之二-九分之二-二十七分之二-八十一分之二-二百四十三分之二-七百二十九分之二 简算 1加1等于几有几种答案 70人相当于80人的几分之几?谁知道啊 三分之一,负九分之二,二十七分之三,负八十一分之四,( ),( )按规律括号里填什么? 1.25等于什么分数 1200乘以百分之108.8等于多少 三分之二加九份之二家二十七分之二加八十一分之二加二百四十三分之二用简便方法计算 1+1为什么等于2? 38乘以1200等于多少 九分之二除与27分之八等于多少 5分之一减6分之一等于【用分数解答】 多少的百分之八十是六十 (1又三分之二+九分之八-1二十七分之二)×27 4个5怎么算等于8 80增加到90,增加了百分之多少 九分之二加二十七分之四等于几? 4个五怎样算等于8 一百分之八十和百分之八十有什么不同和相同? 方是多少?三分之一+九分之二+二十七分之四+八十一分之八+三的n次方分之二的n-1次方等于多少? 4个8怎么算等于888 1.200吨相当于320吨的百分之几 2.60千米比80千米少百分之几 若两百四十三分之三十二的n次方除以九分之四的n次方等于八分之二十七,求n的值 8000秒等于多少小时 0.8%等于一百分之几?80.8%等于百分之几? X乘以X等于40 ---------------------X=? 649980秒等于多少小时?如何计算?我不知道这个时间应该怎么计算成小时?是按照传统的那种算法吗? 一件上衣原价120元,换季打折时降到80元,比原价降低了百分之几?相当于打了几折? 60乘以(x减1)等于40乘以(x加1)怎么做 150000秒等于几个小时怎么计算的? 数学题:一件上衣原价240元,换季打折降到了80元,这件上衣的售价比原价降低了百分之几?要过程!在线等再问一个:某校四、五、六年级共有18个班,平均每班有48人,三个年级的人数比是4:2 多少?乘以百分之四十等于 0.125 8000小时相当于多少天? 一件上衣原价120元,换季打折时降到8O元,比原价降低了百分之几?相当于打了几折? 把100,200,300,...,700,800这八个数,分别填入小圆圈里,使每个大圈上五个数的和是2100.一共八个小圆圈,五个小圆圈用绳子连在一起是一个大圆圈,两个大圆圈连在一起,有共同的两个小圆圈.不知道说 337218秒等于多少小时多少分 ,怎么算的啊 一件上衣原价80元,换季打折时降到60元,这件上衣的价格比原来降了百分之几? 把10.20.30.40.50.60.70.80这八位数填入圆圈内,使每个大圆上的五个数的和是200有两组,每组有五个圆,其中有两个圆是套在一起共用的 多少比16等于15比多少等于多少比80等于百分之125 一件上衣原价240元,换季打折降到了80元,这件上衣的售价比原价降低了百分之几? 把10到80这八个数填入圆圈内,使每个大圆的五个数的和是200 图是一个3个圆的和一个5个圆的合在一起
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn