La página A es una lista de datos ASP ordinaria, pero al imprimir, queremos controlar el número de líneas impresas por página de acuerdo con el tamaño del documento de impresión. ¿Deberíamos hacer esto en este momento? Ahora veamos cómo usar ASP para controlar la cantidad de líneas impresas por página.
<%
pagenum = 55 especifica el número de líneas impresas
%>
<html>
<Evista>
<meta http-oquiv = "content-type" content = "text/html; charset = gb2312">
<title> Imprimir Detalles de las ganancias de ventas Informe </title>
<style type = "text/css">
td {font-size: 9pt; Color:#000000}
A {Decoración de texto: ninguno}
A: Hover {Color:#FF0000; Decoración de texto: Derline}
.Break {Page-break-before: siempre}
</style>
</ablo>
<script language = "javaScript">
Window.print ()
</script>
<Body style = "border: ninguno" 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 ()
En el currículum de error siguiente
Establecer regwsh = createObject ("wscript.shell")
hkey_key = "/encabezado"
Regwsh.regwrite hkey_root+hkey_path+hkey_key, "& bpage & p/& p"
HKEY_KEY = "/pie de página"
Regwsh.regwrite hkey_root+hkey_path+hkey_key, ""
función final
</script>
<%
kdname1 = trim (request ("kdname1"))
kdname2 = trim (request ("kdname2"))
Palabra clave1 = TRIM (request ("Palabra clave1"))
Palabra clave2 = TRIM (request ("Keyword2"))
Si la palabra clave1 <> "" entonces
hoy = palabra clave1
demás
Si kdname1 = "" entonces
hoy = año (fecha ()) y "-" & mes (fecha ())
demás
hoy = kdname1 & "to" & kdname2
final si
final si
%>
<TABLE CELLPACING = "0" CellPadding = "0" Align = "Center">
<tr>
<td align = "Center"> Informe de resumen de ganancias de ventas </td>
</tr>
</table>
<%
strsql = "Seleccione Autoides, Sellautoid, ProductXili, ProductName, ProductSize, ProductNum, ProductDan, ProductJia, Chaoshi, Tiaoma, YouHui, Fukuan, Moncount1, GongShang, Lirun1, UserName, Indate, Fudate de Sell de VeleriMe =" ". mesjie = '0' y (año (indicar) = año (getDate ()) y mes (indicar) = mes (getDate ())) y Zhuofei es un pedido nulo por autoid Desc "
Establecer rs1 = server.createObject ("ADODB.Recordset")
rs1.open strsql, Conn, 1,1
%>
<TABLE CELLPACING = "0" CellPadding = "0" Align = "Center" Style = "Border-Collapse: colapso" borderColor = "#000000">
<tr>
<td align = "Center" bgcolor = "#bdcbee"> Número de pedido de ventas </td>
<td align = "Center" bgcolor = "#bdcbee"> Nombre del producto (Spec) </td>
<td align = "center" bgcolor = "#bdcbee"> cliente </td>
<td align = "center" bgcolor = "#bdcbee"> cantidad </td>
<td align = "center" bgcolor = "#bdcbee"> unidad </td>
<td align = "Center" bgcolor = "#bdcbee"> Precio de venta </td>
<td align = "center" bgcolor = "#bdcbee">%</td>
<td align = "center" bgcolor = "#bdcbee"> precio de compra </td>
<td align = "center" bgcolor = "#bdcbee"> subtotal </td>
<td align = "center" bgcolor = "#bdcbee"> beneficio </td>
<td align = "center" bgcolor = "#bdcbee"> pago </td>
<td align = "centro" bgcolor = "#bdcbee"> fecha de venta </td>
</tr>
</table>
<%
moncount2 = 0
moncount5 = 0
Haz mientras no rs1.eof
%>
<table cellPadding = "0" cellPacing = "0" align = "center" style = "border-colapse: colapso; font-size: 10pt; color:#000000" bordercolor = "#000000">
<%
para i = 1 al pageno
si no rs1.eof entonces
Si TRIM (rs1 ("fukuan")) = "atrasado" entonces entonces
moncount6 = csng (rs1 ("lirun1"))
moncount5 = moncount5+moncount6
demás
moncount3 = csng (rs1 ("lirun1"))
moncount2 = moncount2+moncount3
final si
%>
<tr>
<TD> <%= rs1 ("sillaSaAutoid")%> </td>
<TD> <%= decode (rs1 ("producto"))%> <%= rs1 ("productos")%> </td>
<TD> <%= izquierda (rs1 ("gongshang"), 9)%> </td>
<td align = "centro"> <%= rs1 ("productnum")%> </td>
<td align = "centro"> <%= 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")) = "atrasado" entonces%> <font color = blue> <%= rs1 ("fukuan")%> </font> <%else%> <%= rs1 ("fukuan")%> <%final if%> </td>
<td> <%= rs1 ("indate")%> </td>
</tr>
<%
rs1.movenext
final si
próximo
%>
</table>
<%
Si no es rs1.eof e i = pagenum+1, entonces 'agregue la marca de paginación
%>
<div> </div>
<TABLE CELLPADDING = "0" CELLPACING = "0" align = "Center"> <tr> <td> </td> </tr> </table>
<TABLE CELLPACING = "0" CellPadding = "0" Align = "Center" Style = "Border-Collapse: colapso" borderColor = "#000000">
<tr>
<td align = "Center" bgcolor = "#bdcbee"> Número de pedido de ventas </td>
<td align = "Center" bgcolor = "#bdcbee"> Nombre del producto (Spec) </td>
<td align = "center" bgcolor = "#bdcbee"> cliente </td>
<td align = "center" bgcolor = "#bdcbee"> cantidad </td>
<td align = "center" bgcolor = "#bdcbee"> unidad </td>
<td align = "Center" bgcolor = "#bdcbee"> Precio de venta </td>
<td align = "center" bgcolor = "#bdcbee">%</td>
<td align = "center" bgcolor = "#bdcbee"> precio de compra </td>
<td align = "center" bgcolor = "#bdcbee"> subtotal </td>
<td align = "center" bgcolor = "#bdcbee"> beneficio </td>
<td align = "center" bgcolor = "#bdcbee"> pago </td>
<td align = "centro" bgcolor = "#bdcbee"> fecha de venta </td>
</tr>
<%
final si
bucle
rs1.lose
establecer rs1 = nada
%>
</table>
<table cellPadding = "0" cellPacing = "0" align = "center" style = "border-colapse: colapso" borderColor = "#000000">
<tr>
<td> <font color = "#ff0000"> <b> beneficio en efectivo: </b> </font> <b> <%= formatNumber (moncount2, varnum, -1)%> </b> <%si moncount5 <> "" entonces%> <b> <font color = "#ff0000"> ganancias </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"> Beneficio bruto total: </font> <%= FormatNumber (Moncount5+Moncount2, Varnum, -1)%> </b> <%end if%> </td>
</tr>
</table>
<%
final si
Conn.clar
establecer conn = nada
%>
</body>
</Html>
Lo anterior es todo el contenido de este artículo. Espero que el contenido de este artículo sea de ayuda para el estudio o el trabajo de todos ~