A página A é uma lista de dados ASP comum, mas ao imprimir, queremos controlar o número de linhas impressas por página de acordo com o tamanho do papel de impressão. Devemos fazer isso neste momento? Agora, vamos ver como usar asp para controlar o número de linhas impressas por página.
<%
pagenum = 55'specificar o número de linhas impressas
%>
<html>
<head>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">
<title> Imprimir Relatório de Detalhes dos Lucros de Vendas </title>
<style type = "text/css">
td {font-size: 9pt; Cor:#000000}
A {Decoração de texto: Nenhum}
A: Hover {color:#ff0000; decoração de texto: derline}
.break {Page-bee antes: sempre}
</style>
</head>
<Script Language = "JavaScript">
window.print ()
</script>
<Body style = "borda: nenhum" 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"
função pageSetup_default ()
em erro de erro em seguida
Definir regwsh = createObject ("wscript.shell")
hkey_key = "/cabeçalho"
Regwsh.regwrite hkey_root+hkey_path+hkey_key, "& bpage & p/& p"
hkey_key = "/rodapé"
Regwsh.regwrite hkey_root+hkey_path+hkey_key, ""
Função final
</script>
<%
Kdname1 = Trim (solicitação ("Kdname1")))
kdname2 = Trim (request ("kdname2")))
Palavra -chave1 = Trim (request ("Palavra -chave1")))
Palavra -chave2 = Trim (solicitação ("Palavra -chave2")))
Se a palavra -chave1 <> "" então
hoje = palavra -chave1
outro
Se kdname1 = "" então
hoje = ano (data ()) & "-" & mês (data ())
outro
hoje = kdname1 & "para" & kdname2
final se
final se
%>
<tabela CellPacing = "0" CellPadding = "0" align = "Center">
<tr>
<td align = "Center"> Relatório de resumo de lucro de vendas </td>
</tr>
</tabela>
<%
strsql = "Selecione Autoid, Sellautoid, ProductXili, Nome de ProductName, Productsize, ProductNum, ProductDan, ProductJia, Chaoshi, Tiaoma, Youhui, Fukuan, Moncount1, Gongshang, Lirun1, Nome de usuário, indata, Fudate de Selling Where Officename = '" " MonthJie = '0' e (ano (indate) = ano (getDate ()) e mês (indata) = mês (getDate ())) e zhuofei é nula ordem por autoide desc "
set rs1 = server.createObject ("adodb.recordset")
rs1.open strsql, Conn, 1,1
%>
<tabela CellPacing = "0" CellPadding = "0" align = "center" style = "colapso da borda: colapso" borderColor = "#000000">
<tr>
<td align = "Center" bgcolor = "#bdcbee"> Número do pedido de vendas </td>
<td align = "Center" bgcolor = "#bdcbee"> Nome do produto (Spec) </td>
<td align = "Center" bgcolor = "#bdcbee"> cliente </td>
<td align = "Center" bgcolor = "#bdcbee"> quantidade </td>
<td align = "Center" bgcolor = "#bdcbee"> unidade </td>
<td align = "Center" bgcolor = "#bdcbee"> Preço de venda </td>
<td align = "Center" bgcolor = "#bdcbee">%</td>
<td align = "Center" bgcolor = "#bdcbee"> Preço de compra </td>
<td align = "Center" bgcolor = "#bdcbee"> subtotal </td>
<td align = "Center" bgcolor = "#bdcbee"> lucro </td>
<td align = "Center" bgcolor = "#bdcbee"> pagamento </td>
<td align = "Center" bgcolor = "#bdcbee"> Data de vendas </td>
</tr>
</tabela>
<%
Moncount2 = 0
Moncount5 = 0
Faça enquanto não é rs1.eof
%>
<tabela CellPadding = "0" CellPacing = "0" align = "center" style = "colapso da borda: colapso; tamanho da fonte: 10pt; cor:#000000" borderColor = "#000000">
<%
para i = 1 a pagenum
se não rs1.eof então
Se TRIM (RS1 ("Fukuan")) = "atrasado" então
moncount6 = csng (rs1 ("lirun1"))
Moncount5 = Moncount5+Moncount6
outro
moncount3 = csng (rs1 ("lirun1"))
Moncount2 = Moncount2+Moncount3
final se
%>
<tr>
<td> <%= rs1 ("Sellaautoid")%> </td>
<td> <%= decodificar (rs1 ("productName"))%> <%= rs1 ("Productsize")%> </td>
<Td> <%= esquerda (rs1 ("gongshang"), 9)%> </td>
<td align = "Center"> <%= rs1 ("ProductNum")%> </td>
<td align = "Center"> <%= rs1 ("productDan")%> </td>
<td align = "direita"> <%= formatNumber (rs1 ("chaoshi"), varnum, -1)%> </td>
<td align = "Center"> <%= rs1 ("youhui")%> </td>
<td align = "direita"> <%= formatNumber (rs1 ("productJia"), varnum, -1)%> </td>
<td align = "direita"> <%= formatNumber (rs1 ("moncount1"), varnum, -1)%> </td>
<td align = "direita"> <%= formatNumber (rs1 ("lirun1"), varnum, -1)%> </td>
<td align = "center"> <%se acabar (rs1 ("fukuan")) = "em conflito" então%> <font color = blue> <%= rs1 ("fukuan")%> </font> <%else%>
<Td> <%= rs1 ("indata")%> </td>
</tr>
<%
rs1.movenext
final se
próximo
%>
</tabela>
<%
se não rs1.eof e i = pagenum+1, então 'adicione a marca de paginação
%>
<div> </div>
<tabela CellPadding = "0" CellPacing = "0" align = "Center"> <tr> <td> </td> </tr> </bit table>
<tabela CellPacing = "0" CellPadding = "0" align = "center" style = "colapso da borda: colapso" borderColor = "#000000">
<tr>
<td align = "Center" bgcolor = "#bdcbee"> Número do pedido de vendas </td>
<td align = "Center" bgcolor = "#bdcbee"> Nome do produto (Spec) </td>
<td align = "Center" bgcolor = "#bdcbee"> cliente </td>
<td align = "Center" bgcolor = "#bdcbee"> quantidade </td>
<td align = "Center" bgcolor = "#bdcbee"> unidade </td>
<td align = "Center" bgcolor = "#bdcbee"> Preço de venda </td>
<td align = "Center" bgcolor = "#bdcbee">%</td>
<td align = "Center" bgcolor = "#bdcbee"> Preço de compra </td>
<td align = "Center" bgcolor = "#bdcbee"> subtotal </td>
<td align = "Center" bgcolor = "#bdcbee"> lucro </td>
<td align = "Center" bgcolor = "#bdcbee"> pagamento </td>
<td align = "Center" bgcolor = "#bdcbee"> Data de vendas </td>
</tr>
<%
final se
laço
rs1.close
Definir RS1 = nada
%>
</tabela>
<tabela CellPadding = "0" CellPacing = "0" align = "Center" style = "Border-Collaps: colapso" borderColor = "#000000">
<tr>
<td> <font color = "#ff0000"> <b> lucro em dinheiro: </b> </font> <b> <%= formatNumber (moncount2, varnum, -1)%> </b> <%se moncount5 <> "então%> <b> <font color ="#ff0000 "> lucro prisioneiro <> <%= formatNumber (Moncount5, Varnum, -1)%> </b> <%end if%> <%se Moncount5 <> "" então%> <b> <font <font fins lucrativos </font>: <%= formatNumber (moncount5, varnum, -1) </b>%end seng): color = "#ff0000"> lucro bruto total: </font> <%= formatNumber (moncount5+moncount2, varnum, -1)%> </b> <%se%> </td>
</tr>
</tabela>
<%
final se
Conn.Close
Definir conn = nada
%>
</Body>
</html>
O acima é o conteúdo inteiro deste artigo. Espero que o conteúdo deste artigo seja de ajuda para estudar ou trabalhar de todos ~