WEB打印經驗交流
當前位置:點晴教程→知識管理交流
→『 技術文檔交流 』
WEB打印一直困擾著大家,小弟最近做一項目,稍有心得,特來跟大家交流交流。 我在那個項目中是利用ScriptX.cab這個控件來解決問題的,包括各種匯總表,詳細清單等等,不過最大弊端就是打印的格式是死的,你要打印出怎樣的格式必須自己來做,還有就是打印分頁,它是按你設置的紙張大小來分的,所以必須人為控制,我已經搞定了。 ScriptX.cab大家可以到網上去DOWN一個。 好了,廢話不多說了,代碼才是大家最需要看到的。 包括三個文件,一個是框架頁,一個是工具欄頁,還一個就是打印的內容頁了。 框架頁: <html> <head> <title>打印 / 預覽 / 庫存匯總表</title> <link type="text/css" rel="stylesheet" href="style.css"> <script language="javascript" src="main.js"></script> <script language="javascript">maxwin();</script> </head> <frameset rows="42,*" style="border:none"> <frame src="toolbar.asp" name="toolbar" target="mainbar" frameborder="0" scrolling="no" noresize> <frame src="kc.asp" name="mainbar" target="mainbar" frameborder="0" scrolling="auto" noresize> </frameset> </html> 工具欄頁:([預覽],[設置]和[打印]等按鈕,代碼里邊的圖片大家自己去做一個好了) <body bgcolor="#D4D0C8" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" onselectstart="return false" oncontextmenu="return false"> <table width="100%" height="41" cellpadding="0" cellspacing="0" border="0" background="../images/bg_toolbar.gif"> <tr> <td width="10"><img src="../images/bar_toolbar.gif"></td> <td width="85" align="center"><img src="../images/ico_print.gif" onmouseover="this.src='../images/ico_print1.gif'" onmousedown="this.src='../images/ico_print2.gif'" onmouseout="this.src='../images/ico_print.gif'" onclick="top.mainbar.factory.printing.Print(false);"></td> <td width="2"><img src="../images/line_toolbar.gif"></td> <td width="85" align="center"><img src="../images/ico_setup.gif" onmouseover="this.src='../images/ico_setup1.gif'" onmousedown="this.src='../images/ico_setup2.gif'" onmouseout="this.src='../images/ico_setup.gif'" onclick="top.mainbar.factory.printing.PageSetup();"></td> <td width="2"><img src="../images/line_toolbar.gif"></td> <td width="85" align="center"><img src="../images/ico_view.gif" onmouseover="this.src='../images/ico_view1.gif'" onmousedown="this.src='../images/ico_view2.gif'" onmouseout="this.src='../images/ico_view.gif'" onclick="top.mainbar.factory.printing.Preview();"></td> <td width="2"><img src="../images/line_toolbar.gif"></td> <td> </td> </tr> </table> </body> 內容頁:(代碼里邊的數據查詢請大家換成自己的數據查詢) <style> td{line-height:180%} .ybk{border-right:1px #000000 solid;} .sbk{border-top:1px #000000 solid;} </style> <!--這里調用控件ScriptX.cab--> <object id="factory" style="display:none" viewastext classid="clsid:1663ed61-23eb-11d2-b92f-008048fdd814" codebase="ScriptX.cab#Version=5,60,0,360"></object> <script defer> function window.onload() { factory.printing.header = "" //頁眉 factory.printing.footer = "" //頁腳 factory.printing.portrait = false //true為縱向打印,flase為橫向打印 factory.printing.leftMargin = 15.0 //左頁邊距 factory.printing.topMargin = 5.0 //上頁邊距 factory.printing.rightMargin = 0.75 //右頁邊距 factory.printing.bottomMargin = 1.5 //下頁邊距 } </script> <body oncontextmenu="return false"> <!--#include file="conn.asp"--> <% sql="exec showkc_print" Set rs=Server.CreateObject("Adodb.Recordset") rs.open sql,conn,3,2 If Not rs.eof then rs.pagesize=21 '每頁記錄條數即每頁打印的條數 xs=rs.pagesize rc=rs.pagecount %> <!--自動分頁開始--> <% for n = 1 to rc xs_s=(xs*n-xs)+1 '每頁起始序數 xs_e=xs*n '每頁結束序數 %> <p> <table width="1000" height="700" cellpadding="0" cellspacing="0" border="0"> <tr><td valign="top"> <table width="100%" cellpadding="0" cellspacing="0" border="0"> <tr><td height="50" align="center" valign="top"><font size="5">庫存匯總表</font></td></tr> </table> <table width="1000" cellpadding="0" cellspacing="0" style="border:1px #000000 solid" align="center"> <tr height="20" align="center"> <td width="5%" class="ybk">序號</td> <td width="10%" class="ybk">人工編號</td> <td width="15%" class="ybk">材料名稱</td> <td width="25%" class="ybk">型號規格</td> <td width="10%" class="ybk">單價</td> <td width="8%" class="ybk">數量</td> <td width="12%" class="ybk">金額</td> <td width="5%" class="ybk">單位</td> <td width="10%">更新日期</td> </tr> <% dim i i=1 Do While Not rs.eof and i<=xs %> <tr><td colspan="10" height="1"><img src="../images/dot.gif" width="100%" height="1"></td></tr> <tr height="20"> <td width="5%" class="ybk"> <%=xs_s+(i-1)%></td> <td width="10%" class="ybk"> <%=rs("rgbh")%></td> <td width="15%" class="ybk"> <%=rs("clmc")%></td> <td width="25%" class="ybk"> <%=rs("clxh")%></td> <td width="10%" class="ybk" align="right"><%=FormatNumber(rs("pjj"),3,true)%> </td> <td width="8%" class="ybk" align="right"><%=FormatNumber(rs("kcsl"),2,true)%> </td> <td width="12%" class="ybk" align="right"><%xj=FormatNumber(rs("pjj"),3)*FormatNumber(rs("kcsl"),2)%><%=FormatNumber(xj,2,true)%> </td> <td width="5%" class="ybk"> <%=rs("dw")%></td> <td width="10%"> <%=datevalue(rs("gxsj"))%></td> </tr> <% rs.MoveNext i=i+1 hj=hj+xj zj=zj+xj Loop %> <% If rc>1 then %> <tr><td colspan="10" height="1"><img src="../images/dot.gif" width="100%" height="1"></td></tr> <tr height="20"> <td width="5%" class="ybk"> </td> <td width="10%" class="ybk"> </td> <td width="15%" class="ybk"> </td> <td width="25%" class="ybk"> 本 頁 合 計</td> <td width="8%" class="ybk"> </td> <td width="8%" class="ybk"> </td> <td width="12%" class="ybk" align="right"><%=FormatNumber(hj,2,true)%><% hj=0%> </td> <td width="5%" class="ybk"> </td> <td width="10%"> </td> </tr> <% end if %> <% If n=rc then %> <tr><td colspan="10" height="1"><img src="../images/dot.gif" width="100%" height="1"></td></tr> <tr height="20"> <td width="5%" class="ybk"> </td> <td width="10%" class="ybk"> </td> <td width="15%" class="ybk"> </td> <td width="25%" class="ybk"> 總 計</td> <td width="8%" class="ybk"> </td> <td width="8%" class="ybk"> </td> <td width="12%" class="ybk" align="right"><%=FormatNumber(zj,2,true)%> </td> <td width="5%" class="ybk"> </td> <td width="10%"> <%=now%></td> </tr> <% end if %> </table> <table width="100%" cellpadding="0" cellspacing="0" border="0"> <tr><td height="15"> </td></tr> <tr><td height="30" align="center"><font size="3">第<%=n%>頁,共<%=rc%>頁</font></td></tr> </table> </td></tr> </table> <% next %> <!--分頁結束--> <% end if rs.close Set rs=Nothing conn.close Set conn=Nothing %> 以上代碼實現一個類似EXCEL格式的庫存匯總表打印,大家可以把代碼拷過去感覺一下,效果還是不錯的,就如我上面所說,因為它的打印格式是要自己做的,所以大家可以改為自己想要的格式,必須自己做了。 歡迎大家交流 ^_^ 關于ScriptX的下載和該控件的使用方法請登陸http://www.meadroid.com/scriptx/index.asp查看. 本文來自CSDN博客,轉載請標明出處:http://blog.csdn.net/dh20156/archive/2004/12/23/226464.aspx
該文章在 2010/10/9 10:55:18 編輯過 |
關鍵字查詢
相關文章
正在查詢... |