如何用asp控制每頁的打印行數

2024-05-04 11:05:17

字體：大中小

來源：轉載

供稿：網友

?頁面A是普通的asp數據列表，但是打印的時候想根據打印紙的大小而控制每頁的打印行數這時候的我們應該這么做呢？現在我們去看看如何用asp控制每頁的打印行數。

<%
pagenum=55'指定打印行數
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>銷售利潤明細報表打印</TITLE>
<style type="text/css">
td {font-size:9pt; color:#000000}
A{text-decoration:none}
A:hover{color:#FF0000;text-decoration:derline}
.break{page-break-before:always}
</style>
</HEAD>
<script language="javascript">
window.print()
</script>
<BODY style="border:none" topmargin="0" leftmargin="6" onload="javascrpt:pagesetup_default();">
<script language="VbScript">
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="/Software/Microsoft/Internet Explorer/PageSetup"
function pagesetup_default()
??? on error resume next
??? Set RegWsh = CreateObject("WScript.Shell")
??? hkey_key="/header"???
??? RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&b頁&p/&P"
??? hkey_key="/footer"
??? RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
end function
</script>

<%
kdname1=trim(request("kdname1"))
kdname2=trim(request("kdname2"))
keyword1=trim(request("keyword1"))
keyword2=trim(request("keyword2"))

?if keyword1<>"" then
?today=keyword1
?else
?if kdname1="" then
?today=year(date())&"-"&month(date())
?else
?today=kdname1&"至"&kdname2
?end if
?end if
%>
? <table border="0" cellspacing="0" cellpadding="0" align="center" width="740"? height="30">
??? <tr>
????? <td align="center">銷售利潤匯總報表</td>
??? </tr>
? </table>

<%?
?strSQL="select autoid,sellautoid,productxili,productname,productsize,productnum,productdan,productjia,chaoshi,tiaoma,youhui,fukuan,moncount1,gongshang,lirun1,username,indate,fudate from sell where officename='"&trim(request.cookies("Myoffice"))&"' and monthjie='0' and (year(indate)=year(getdate()) and month(indate)=month(getdate())) and zhuofei is null order by autoid desc"????????????
?set rs1=server.createobject("adodb.recordset")?????????????
?rs1.open strSQL,conn,1,1
%>??????????????
? <table border="1" cellspacing="0" cellpadding="0" align="center" style="border-collapse: collapse"? bordercolor="#000000" width="740">????????????
??? <tr>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="70" >銷售單號</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="168" >商品名稱（規格）</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="121" >客戶</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="30" >數量</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="24" >單位</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="50" >銷售價</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="23" >折%</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="52" >進貨價</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="55" >小計</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="45" >利潤</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="25" >付款</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="61" >銷售日期</td>????????????
??? </tr>
? </table>
<%????????????
? moncount2=0????????????
? moncount5=0????????????
? Do while not rs1.eof?
%>
<table border="1" cellpadding="0" cellspacing="0" width="740" align="center" style="border-collapse:collapse; font-size:10pt;color:#000000" bordercolor="#000000">
<%
for i=1 to pagenum
if not rs1.eof then
? if trim(rs1("fukuan"))="欠款" then????????????
? moncount6=Csng(rs1("lirun1"))????????????
? moncount5=moncount5+moncount6????????????
? else????????????
? moncount3=Csng(rs1("lirun1"))????????????
? moncount2=moncount2+moncount3????????????
? end if?
%>?????
??? <tr>????????????
????? <td height="18" width="70">?<%=rs1("sellautoid")%></td>????????????
????? <td height="18" width="168"><%=Decode(rs1("productname"))%>?<%=rs1("productsize")%></td>????????????
????? <td height="18" width="121"><%=left(rs1("gongshang"),9)%></td>???????????
????? <td height="18" width="30" align="center"><%=rs1("productnum")%></td>???????????
????? <td height="18" width="24" align="center"><%=rs1("productdan")%></td>???????????
????? <td height="18" width="50" align="right"><%=formatNumber(rs1("chaoshi"),varnum,-1)%></td>???????????
????? <td height="18" width="23" align="center"><%=rs1("youhui")%></td>???????????
????? <td height="18" width="52" align="right"><%=formatNumber(rs1("productjia"),varnum,-1)%></td>???????????
????? <td height="18" width="55" align="right"><%=formatNumber(rs1("moncount1"),varnum,-1)%></td>???????????
????? <td height="18" width="45" align="right"><%=formatNumber(rs1("lirun1"),varnum,-1)%></td>???????????
????? <td align="center" height="18" width="25"><%if trim(rs1("fukuan"))="欠款" then%><font color=blue><%=rs1("fukuan")%></font><%else%><%=rs1("fukuan")%><%end if%></td>???????????
????? <td height="18" width="61"><%=rs1("indate")%></td>???????????
??? </tr>
<%
rs1.movenext
end if
next
%>
</table>
<%
if not rs1.eof and i=pagenum+1 then '添加分頁標記
%>
? <div class="break">?</div>
? <table border="0" cellpadding="0" cellspacing="0" width="740" height="12" align="center"><tr><td height="12"></td></tr></table>
? <table border="1" cellspacing="0" cellpadding="0" align="center" width="740" style="border-collapse: collapse"? bordercolor="#000000">
??? <tr>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="70" >銷售單號</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="168" >商品名稱（規格）</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="121" >客戶</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="30" >數量</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="24" >單位</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="50" >銷售價</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="23" >折%</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="52" >進貨價</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="55" >小計</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="45" >利潤</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="25" >付款</td>????????????
????? <td align="center" height="20" bgcolor="#BDCBEE" width="61" >銷售日期</td>????????????
??? </tr>
<%
end if
loop
rs1.close????
set rs1=nothing????
%>?
</table>?
? <table border="1" cellpadding="0" cellspacing="0" width="740" height="20" align="center" style="border-collapse: collapse"? bordercolor="#000000">
??? <tr>???????????
?????? <td><font color="#FF0000"><b>現金利潤：</b></font><b><%=formatNumber(moncount2,varnum,-1)%></b>???<%if moncount5<>"" then%><b><font color="#FF0000">欠款利潤</font>：<%=formatNumber(moncount5,varnum,-1)%></b><%end if%>???<%if moncount5<>"" then%><b><font color="#FF0000">毛利合計：</font><%=formatNumber(moncount5+moncount2,varnum,-1)%></b><%end if%></td>???????????
???? </tr>??
?? </table>???????????
<%
end if
conn.close
set conn=nothing
%>?