怎样用asp控制每页的打印行数

发布时间：2023-08-19 14:38:31 所属栏目：Asp教程来源：

导读：页面A是普通的asp数据列表，但是打印的时候想根据打印纸的大小而控制每页的打印行数这时候的我们应该这么做呢？现在我们去看看如何用asp控制每页的打印行数。

<%

pagenum=55'指定打印行数

%>

<H

页面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

%>

</BODY>

</HTML>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!