通过注册表修改IE打印设置

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

<HTML>

<HEAD>

<TITLE>New Document </TITLE>

<META NAME="Generator" CONTENT="EditPlus">

<META NAME="Author" CONTENT="YC">

<script language="VBScript">

dim hkey_root,hkey_path,hkey_key

hkey_root="HKEY_CURRENT_USER"

hkey_path="\Software\Microsoft\Internet Explorer\PageSetup" //IE打印设置的注册表地址

function pagesetup_null()

on error resume next

Set RegWsh = CreateObject("WScript.Shell")

hkey_key="\header"

RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"" //页眉

hkey_key="\footer"

RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"" //页脚

hkey_key="\margin_left"

RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--左边边界

hkey_key="\margin_top"

RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1"

hkey_key="\margin_right"

RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1"

hkey_key="\margin_bottom"

RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1"

end function

'//

function pagesetup_default()

on error resume next

Set RegWsh = CreateObject("WScript.Shell")

hkey_key="\header"

RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b页,&p/&P" //页数-

hkey_key="\footer"

RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d" //网址,日期等信息

end function

</script>

</HEAD>

<BODY>

<table width="100%" border=2 cellspacing=1 align=center cellpadding=1 id=tb1>

<tr>

<td>

<br>

<br>

<br>

<p align="center">

<input type="button" value="Clean" onclick="pagesetup_null()"> <input type="button" value="Reset" onclick="pagesetup_default()"><br>

</p>

</td>

</tr>

</table>

</BODY>

</HTML>

除了以上键值以外还有

duplex

orientation

paper_size

paper_source

printer

注意:上面对页边距的设置为:1,实际设置值为25.4。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航