如何在使用javascript调用window.print()来执行打印页面的时候,在页脚显示页码

dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"
'//設置網頁打印的頁眉頁腳為空
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,""
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&b第 &p 頁，共 &P 頁"
end function