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

时间: 2024-09-21 00:19:56

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}

[水晶报表]RECORDNUMBER应用之控制每页显示行数及隔行换色.

控制|水晶报表|显示 经常有人问到如何限定每页显示行数的限定,还看到有人用拉高字段的方法.呵呵 下面简单说一下,其中公式用的是 Crystal语法,数据库用的是水晶报表自己带的Access数据库我以Orders表为例. 首先选几个字段作个简单的报表,,画个小格子,预览一下.每行的数据显示满页,共21页 我们限定每页显示10行 在设计节上点右键选"节专家",操作"详细资料"节.后面几步依图所示,加一个公式控制页面显示 再预览的时候,就发现已经是84页了,如我们所要:)

flexpaper 页数控制-flexpaper控制显示页数

问题描述 flexpaper控制显示页数 如文档有10页,只显示前面5页,后面5页提示用户下载后才能阅读 初学flexpaper,请教大牛! 解决方案 http://www.cnblogs.com/zhengxu/articles/2240811.html 我用的时候,基本就是用他的转换pdf....

txt文件-c++如何控制文件输出的行数?

问题描述 c++如何控制文件输出的行数? 我有一个几千行的txt文件,里面都是ascall字符,我想每次读取30行在控制台显示然后清屏,延迟0.1s后再输出接下来的30行,也就是第一次控制台输出1-30行,清屏,第二次输出31-60行,这样一直下去,直到文件末尾 1. 我希望在每次在控制台显示的时候一次性显示30行的字符,必须一次性显示30行,肉眼不能察觉到是一行一行显示出来的. 解决方案 自己做个计数就好了,30行后,计数清零,重新计数 解决方案二: #include #include #in

如何控制框架页的滚动

控制 如何控制框架页的滚动 解决思路:     利用框架文档中window对象的scrollBy方法来滚动. 具体步骤: 1. 包含框架页的代码. <script> var itv,stepX,stepY,obj function scrollStart(x,y){ stepX=x       //X轴方向上的偏移量 stepY=y       //Y轴方向上的偏移量 obj=document.frames.demo    //捕获框架对象 //设置间隔事件,每10毫秒以stepX和stepY

asp生成静态页主要涉及三个方面:模板,参数,fso

fso|静态|模板 asp生成静态页主要涉及三个方面:模板,参数,fso. 1,模板:这个其实就是页面的框架,以下为模板的例子:###############################这就是一个模板###############################<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-t

ASP.NET 翻页后继续维持排序

asp.net|翻页|排序 要想实现翻页后继续排序,实现这样的效果: 比如共 15笔记录,每页显示10条 则排序时:第一页将前10条记录排序,翻第二页时后五条再单独排序. 要注意以下几点: 1.如果数据很多,最好不要把数据集放到缓存中(viewstate),影响性能 2. ViewState中存放上次是哪个e.expression并且存放此e.expression是升序还是降序 示例如下: 1.现有的排序事件是这样写的,这个是点击上面排序标题时用: private void grdProjTra

ios开发-怎么用三个slider控制同页面的label的背景颜色

问题描述 怎么用三个slider控制同页面的label的背景颜色 用滚动条可以实时改变label的背景色..假设三个slider,一个控制红色,一个控制绿色,一个控制蓝色 解决方案 (void)viewDidLoad { [super viewDidLoad]; // Do any additional setup after loading the view. UILabel *redLabel = [[UILabel alloc] initWithFrame:CGRectMake(20, 3

新型僵尸网络Rakos:入侵设备后改造为C&amp;C控制端,已感染数万台

本文讲的是新型僵尸网络Rakos:入侵设备后改造为C&C控制端,已感染数万台, 一.Rakos僵尸网络的背景介绍 Morphus Labs最近部署了不少高交互蜜罐,希望能发现一些隐藏特别深的最新恶意攻击,但是在蜜罐部署的前两天,该实验室对恶意软件的捕获都失败了,这其中就包括针对SSH端口的SPAM和XORDDoS攻击.到了第三天,蜜罐捕获了一种攻击,经调查,命名为Rakos的Linux恶意程序已经入侵了大量设备.虽然当前这些设备组成的僵尸网络还没有确切的恶意行为,但研究人员认为Rakos僵尸网络