Page A is an ordinary asp data list, but when printing, we want to control the number of printed lines per page according to the size of the printing paper. Should we do this at this time? Now let's see how to use asp to control the number of printed lines per page.
<%
pagenum=55'Specify the number of printed lines
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>Print sales profit details report</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="javasscript:pagesetup_default();">
<script language="VbScript">
dim hkey_root,hkey_path,hkey_key_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,"&bpage&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&"to"&kdname2
end if
end if
%>
<table cellpacing="0" cellpadding="0" align="center" >
<tr>
<td align="center">Sales Profit Summary Report</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 cellpacing="0" cellpadding="0" align="center" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td align="center" bgcolor="#BDCBEE" >Sales Order Number</td>
<td align="center" bgcolor="#BDCBEE" >Product name (spec)</td>
<td align="center" bgcolor="#BDCBEE" >Customer</td>
<td align="center" bgcolor="#BDCBEE" >Quantity</td>
<td align="center" bgcolor="#BDCBEE" >Unit</td>
<td align="center" bgcolor="#BDCBEE" >Sales Price</td>
<td align="center" bgcolor="#BDCBEE" >%</td>
<td align="center" bgcolor="#BDCBEE" >Purchase Price</td>
<td align="center" bgcolor="#BDCBEE" >Subtotal</td>
<td align="center" bgcolor="#BDCBEE" >Profit</td>
<td align="center" bgcolor="#BDCBEE" >Payment</td>
<td align="center" bgcolor="#BDCBEE" >Sales Date</td>
</tr>
</table>
<%
moncount2=0
moncount5=0
Do while not rs1.eof
%>
<table cellpadding="0" cellpacing="0" 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"))="Arrears" then
moncount6=Csng(rs1("lirun1"))
moncount5=moncount5+moncount6
else
moncount3=Csng(rs1("lirun1"))
moncount2=moncount2+moncount3
end if
%>
<tr>
<td> <%=rs1("sellaautoid")%></td>
<td><%=Decode(rs1("productname"))%> <%=rs1("productsize")%></td>
<td><%=left(rs1("gongshang"),9)%></td>
<td align="center"><%=rs1("productnum")%></td>
<td align="center"><%=rs1("productdan")%></td>
<td align="right"><%=formatNumber(rs1("chaoshi"),varnum,-1)%></td>
<td align="center"><%=rs1("youhui")%></td>
<td align="right"><%=formatNumber(rs1("productjia"),varnum,-1)%></td>
<td align="right"><%=formatNumber(rs1("moncount1"),varnum,-1)%></td>
<td align="right"><%=formatNumber(rs1("lirun1"),varnum,-1)%></td>
<td align="center"><%if trim(rs1("fukuan"))="Arrears" then%><font color=blue><%=rs1("fukuan")%></font><%else%><%=rs1("fukuan")%><%end if%></td>
<td><%=rs1("indate")%></td>
</tr>
<%
rs1.movenext
end if
next
%>
</table>
<%
if not rs1.eof and i=pagenum+1 then 'Add pagination mark
%>
<div> </div>
<table cellpadding="0" cellpacing="0" align="center"><tr><td></td></tr></table>
<table cellpacing="0" cellpadding="0" align="center" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td align="center" bgcolor="#BDCBEE" >Sales Order Number</td>
<td align="center" bgcolor="#BDCBEE" >Product name (spec)</td>
<td align="center" bgcolor="#BDCBEE" >Customer</td>
<td align="center" bgcolor="#BDCBEE" >Quantity</td>
<td align="center" bgcolor="#BDCBEE" >Unit</td>
<td align="center" bgcolor="#BDCBEE" >Sales Price</td>
<td align="center" bgcolor="#BDCBEE" >%</td>
<td align="center" bgcolor="#BDCBEE" >Purchase Price</td>
<td align="center" bgcolor="#BDCBEE" >Subtotal</td>
<td align="center" bgcolor="#BDCBEE" >Profit</td>
<td align="center" bgcolor="#BDCBEE" >Payment</td>
<td align="center" bgcolor="#BDCBEE" >Sales Date</td>
</tr>
<%
end if
loop
rs1.close
set rs1=nothing
%>
</table>
<table cellpadding="0" cellpacing="0" align="center" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td><font color="#FF0000"><b>Cash profit:</b></font><b><%=formatNumber(moncount2,varnum,-1)%></b> <%if moncount5<>"" then%><b><font color="#FF0000">Profit arrears</font>: <%=formatNumber(moncount5,varnum,-1)%></b><%end if%> <%if moncount5<>"" then%><b><font <font>Profit arrears</font>: <%=formatNumber(moncount5,varnum,-1)%></b><%end if%> <%if moncount5<>"" then%><b><font color="#FF0000">Total gross profit:</font><%=formatNumber(moncount5+moncount2,varnum,-1)%></b><%end if%></td>
</tr>
</table>
<%
end if
conn.close
set conn=nothing
%>
</BODY>
</HTML>
The above is the entire content of this article. I hope the content of this article will be of some help to everyone's study or work~