WEB打印设置解决方案一（通过修改注册表改变IE打印设置）

以下是IE打印设置脚本

<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>

除了以上键值以外还有以下几项，其值有待确认。

duplex

orientation

paper_size

paper_source

printer

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