ASP控制每页打印行数
2018-09-06 11:22
<%
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>
<%
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
%>
</BODY>
</HTML>