<script language=javascript> function printpr() //预览函数 { document.all("qingkongyema").click();//打印之前去掉页眉,页脚 document.all("dayinDiv").style.display="none"; //打印之前先隐藏不想打印输出的元素(此例中隐藏“打印”和“打印预览”两个按钮) var OLECMDID = 7; var PROMPT = 1; var WebBrowser = ''; document.body.insertAdjacentHTML('beforeEnd', WebBrowser); WebBrowser1.ExecWB(OLECMDID, PROMPT); WebBrowser1.outerHTML = ""; document.all("dayinDiv").style.display="";//打印之后将该元素显示出来(显示出“打印”和“打印预览”两个按钮,方便别人下次打印) } function printTure() //打印函数 { document.all('qingkongyema').click();//同上 document.all("dayinDiv").style.display="none";//同上 window.print(); document.all("dayinDiv").style.display=""; } function doPage() { layLoading.style.display = "none";//同上 } </script> <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() 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,"" 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>
你希望打印的内容..........