Asp.net 列印web 網頁 如何不顯示 網址 頁碼
阿新 • • 發佈:2019-02-10
<!--<br /><br />Code highlighting produced by Actipro CodeHighlighter (freeware)<br />http://www.CodeHighlighter.com/<br /><br />--><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 "//設定網頁列印的頁首頁尾為空
function pagesetup_null()
onerrorresumenextSet 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,""endfunction //設定網頁列印的頁首頁尾為預設值
function pagesetup_default()
onerrorresumenextSet 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"endfunction</script></HEAD><BODY><br/><p align=center><input type="button" value="清空頁碼" onclick=pagesetup_null()><input type="button" value="恢復頁嗎" onclick=pagesetup_default()>
hkey_root="HKEY_CURRENT_USER"
hkey_path="/Software/Microsoft/Internet Explorer/PageSetup
function pagesetup_null()
onerrorresumenextSet 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,""endfunction
function pagesetup_default()
onerrorresumenextSet 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