web打印：如何设置横打，纵打以及页面大小

[fdxtt2000]

以下是设置网页打印的页眉页脚，其他属性怎么设置呢？
<script language="VBScript">
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"
'//设置网页打印的页眉页脚为空
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,""</script>

[xieyj]

上:
hkey_key="\margin_top"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
底:
hkey_key="\margin_bottom"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
左边距:
hkey_key="\margin_left"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
右边距:
hkey_key="\margin_right"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""