我要打印的东西很多，所以要分页打，但分好页后一次只能打印一页，不能连续打下去，还有就是分页后连“上一页”，“下一页”这些字也打出来了，这怎么办啊？

网页的打印一般是打印网页里面的内容 下一页的内容没在本页显示没法打印 要想打印全部 可以做一个显示全部的页面供打印使用 或者声称excle报表 让客户自己编辑打印

呵呵，，，这个我也知道，但老板要求这样我也没办法啊。
还有就是那个分页的问题，我用的是一种原始的方法
PageSize =10
PageCount=(PageCount+PageSize-1)\PageSize
Page = CLng(Request("Page"))
'分页显示
If not Page >1 Then Page = 1
If Page > PageCount Then Page = PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To PageSize
按这个分出来的很正常，
但是我把pagesize改为其他的比如pagesize=15
                          然后i=page+(page-1)*14
这就不行了，他非要每页都显示15个记录，如果不足15个他会到前面挑几个在后面补足，
这是杂回事捏？？？

你把最后一页重新改一下 读后15条记录

判断如果是最后一页 就读你修改的

楼主，不懂你的意思是什么啊，？

判断一下是不是最后一页
如果是 就不读原来的程序
做一个查询后15条数据的页面来代替它

那不是跟我的问题一样的吗，最后一页一定要15条，不足15条还要补足。。。。
我就是不要他补足啊

[QUOTE]他非要每页都显示15个记录，如果不足15个他会到前面挑几个在后面补足，[/QUOTE]

那我理解错了 我还以为“他”是你老板呢

我看看你的分页怎么做的行不

我是这样分的， PageCount=0 sql="select * from proj_info where projyear like '"& pyear &"' and ifshenhe3 like '"& tongguo &"' and projname like '%%"& pname &"%%' and entername like '"& uname &"' and usercode like '"& ucity &"' and projsort like '"& psort &"' and ifshenhe1 like '"& ifsh1 &"' order by id" set rs=conn.execute(sql) while not rs.eof PageCount=PageCount+1 rs.movenext wend sql="select * from proj_info where projyear like '"& pyear &"' and ifshenhe3 like '"& tongguo &"' and projname like '"& pname &"' and entername like '"& uname &"' and usercode like '"& ucity &"' and projsort like '"& psort &"' and ifshenhe1 like '"& ifsh1 &"' order by id" set rs=server.createobject("adodb.recordset") rs.open sql,conn,3,2 on error resume next

PageSize =15 PageCount=(PageCount+PageSize-1)\PageSize Page = CLng(Request("Page")) '分页显示 If not Page >1 Then Page = 1 If Page > PageCount Then Page = PageCount i=page+(page-1)*14 rs.AbsolutePage = Page For iPage = 1 To PageSize %> <tr height="30"> <td><div align="center"><%=i%></div></td> <td><div align="center"><%=rs("projyear")%></div></td> <td width="220"><%=rs("entername")%></td> <td width="220"><%=rs("projname")%></td> <td><div align="center"><%=rs("projsort")%></div></td> <td><div align="center"><%=rs("shenqsum")%></div></td> <td><div align="center"><%=rs("cpifusum")%></div></td> <td><div align="center"><%=rs("ppifusum")%></div></td> <td><div align="center"><%=rs("city")%></div></td> </tr> <% rs.MoveNext If rs.EOF Then Exit For i=i+1 Next %> </table> <div ALIGN="right"> <table> <form ACTION="<%=Myself%>?ifsh1=<%=ifsh1%>&pyear=<%=pyear%>&pname=<%=pname%>&tongguo=<%=tongguo%>&uname=<%=uname%>&ucity=<%=ucity%>&psort=<%=psort%>%&gt;" METHOD="GET"><tr><td><p></td> </tr> <td> <p ALIGN="right"><%If Page <> 1 Then ' 如果不是位于第一页%> <a href="<%=Myself%>?Page=1&ifsh1=<%=ifsh1%>&pyear=<%=pyear%>&pname=<%=pname%>&tongguo=<%=tongguo%>&uname=<%=uname%>&ucity=<%=ucity%>&psort=<%=psort%>"> 第一页</a> <a HREF="<%=Myself%>?Page=<%=(Page-1)%>&ifsh1=<%=ifsh1%>&pyear=<%=pyear%>&pname=<%=pname%>&tongguo=<%=tongguo%>&uname=<%=uname%>&ucity=<%=ucity%>&psort=<%=psort%>"> 上一页</a> <%End If If Page <> PageCount Then ' 如果不是位于最后一页 %> a HREF="<%=Myself%>?Page=<%=(Page+1)%>&ifsh1=<%=ifsh1%>&pyear=<%=pyear%>&pname=<%=pname%>&tongguo=<%=tongguo%>&uname=<%=uname%>&ucity=<%=ucity%>&psort=<%=psort%>"> 下一页</a> <a HREF="<%=Myself%>?Page=<%=PageCount%>&ifsh1=<%=ifsh1%>&pyear=<%=pyear%>&pname=<%=pname%>&tongguo=<%=tongguo%>&uname=<%=uname%>&ucity=<%=ucity%>&psort=<%=psort%>"> 最后一页</a> <% End If %> </p> </td> </tr> </table>

哈哈,这个我的办法最好,其实你只要对IE进行一下设置就可以很方便地解决你的问题
不必这么麻烦的,还写一大堆的东东.
你只需要这么做
在IE中点文件,点打印,在打印的对话框中选选项,进入选项的对话框后把"打印链接的所有文件"前的钩给打上就可以了
注意
这样会把所有的页面都打出了,如果你只想打几页,请在程序中把你要打的东东选出就可以了