天天看點

ASP開發必備:WEB列印代碼大全

ASP開發必備:WEB列印代碼大全這篇文章主要介紹了如何使用ASP控制Web的各種列印效果,它能夠控制縱打、橫打和頁面邊距等。

1、控制"縱打"、 "橫打"和"頁面的邊距"。  

程式代碼:

<script defer>  

  function SetPrintSettings() {  

  // -- advanced features  

  factory.printing.SetMarginMeasure(2) // measure margins in inches  

  factory.SetPageRange(false, 1, 3) // need pages from 1 to 3  

  factory.printing.printer = "HP DeskJet 870C"  

  factory.printing.copies = 2  

  factory.printing.collate = true  

  factory.printing.paperSize = "A4"  

  factory.printing.paperSource = "Manual feed"  

  // -- basic features  

  factory.printing.header = "This is MeadCo"  

  factory.printing.footer = "Advanced Printing by ScriptX"  

  factory.printing.portrait = false  

  factory.printing.leftMargin = 1.0  

  factory.printing.topMargin = 1.0  

  factory.printing.rightMargin = 1.0  

  factory.printing.bottomMargin = 1.0  

  }  

</script>

程式代碼:

<script language="javascript">  

  function printsetup(){  

  // 列印頁面設定  

  wb.execwb(8,1);  

  }  

  function printpreview(){  

  // 列印頁面預覽  

  

  wb.execwb(7,1);  

  

  

  }  

  function printit()  

  {  

  if (confirm('确定列印嗎?')) {  

  wb.execwb(6,6)  

  }  

  }  

</script>

<OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"  

  height=0 id=wb name=wb width=0></OBJECT>  

  <input type=button name=button_print value="列印"  

  οnclick="javascript:printit()">  

  <input type=button name=button_setup value="列印頁面設定"  

  οnclick="javascript:printsetup();">  

  <input type=button name=button_show value="列印預覽"  

  οnclick="javascript:printpreview();">  

  <input type=button name=button_fh value="關閉"  

  οnclick="javascript:window.close();">

關于這個元件還有其他的用法,列舉如下:  

  WebBrowser.ExecWB(1,1) 打開  

  Web.ExecWB(2,1) 關閉現在所有的IE視窗,并打開一個新視窗  

  Web.ExecWB(4,1) 儲存網頁  

  Web.ExecWB(6,1) 列印  

  Web.ExecWB(7,1) 列印預覽  

  Web.ExecWB(8,1) 列印頁面設定  

  Web.ExecWB(10,1) 檢視頁面屬性  

  Web.ExecWB(15,1) 好像是撤銷,有待确認  

  Web.ExecWB(17,1) 全選  

  Web.ExecWB(22,1) 重新整理  

  Web.ExecWB(45,1) 關閉窗體無提示  

2、分頁列印  

程式代碼:

  <HTML>  

  <HEAD>  

  <STYLE>    

  P {page-break-after: always}  

  </STYLE>  

  </HEAD>  

  <BODY>  

  <%while not rs.eof%>  

  <P><%=rs(0)%></P>  

  <%rs.movenext%>  

  <%wend%>  

  </BODY>  

  </HTML>   

3、ASP頁面列印時如何去掉頁面底部的路徑和頂端的頁碼編号  

  ie的檔案-〉頁面設定-〉講裡面的頁眉和頁腳裡面的東西都去掉,列印就不出來了。  

程式代碼:

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

  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>  

  </HEAD>  

  <BODY>  

  <br/>  

  <br/>  

  <br/>  

  <br/>  

  <br/>  

  <br/><p align=center>  

  <input type="button" value="清空頁碼" οnclick=pagesetup_null()> <input type="button" value="恢複頁嗎" οnclick=pagesetup_default()><br/>  

  </p>  

  </BODY>  

  </HTML> 

4、浮動幀列印

程式代碼:

  <SCRIPT LANGUAGE=javascript>  

  function button1_onclick() {  

  var odoc=window.iframe1.document;  

  var r=odoc.body.createTextRange();  

  var stxt=r.htmlText;  

  alert(stxt)  

  var pwin=window.open("","print");  

  pwin.document.write(stxt);  

  pwin.print();  

  }  

  </SCRIPT> 

4、用FileSystem元件實作WEB應用中的本地特定列印 

繼續閱讀