各位快来帮帮小女子一把,真心相求!难倒了很多人

xiangblue 2004-08-03 09:08:52
请问:那位大虾知道,怎样实现如下要求:
1、在网页上按下“打印本页”几个字,就可以只打印本页文字内容。
2、让本页内容尽量打印在一张A4纸上。
千恩万谢!!!!
...全文
126 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
sunjiujiu 2004-08-03
俺不能帮你,捎带着学习下,呵呵!
回复
ycted 2004-08-03
或者一个死办法,你估计多少行你就要分页了,你就强制分页
page-break-after: always
回复
ycted 2004-08-03
Function LeftTrue(str,pageno)
Dim i,line,linenum,pagei
Dim substr
pagei = 0
line = 0
linenum = 0
For i = pageno To Len(str)
substr = Mid(str,i,1)
Response.Write substr
If Asc(substr) > 255 OR Asc(substr) < 0 Then
line = line + 2 '中文
Else
line = line + 1 '英文
End If
If line > 79 Then '每行80
linenum = linenum + 1
line = 0
Response.Write "<br/>"
End If
If linenum > 10 Then '10行
pagei = i
Exit For
End if
Next
LeftTrue = pagei '如果能在一页显示pagei=0,否则pagei为下一页的起点
End Function

cc = LeftTrue(yourstr,pageno) 'cc为下一页的起始i的位置

一页页的打。
回复
ycted 2004-08-03
要不分页打印。
回复
jervis82 2004-08-03
在本站的搜打印,你想怎样打印都能得到代码。
回复
xiangblue 2004-08-03
就是总空着旁边的图片,想打印文字稍多一点的a4的纸就不够用了,怎么办?
回复
xiangblue 2004-08-03
谢谢iuhxq,你的办法不错!
回复
iuhxq 2004-08-03
<style>

@media print {

.ipt {display:none}

</style>

<div class="ipt">这一行就不显示</div>

这里就可以显示


上面的可以打印局部。
回复
xiangblue 2004-08-03
这一页用windos.print(),打不了,还总是打半页。
回复
fhsoft8508539 2004-08-03
“让本页内容尽量打印在一张A4纸上"-你这个本页有多少内容
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-03 09:08
社区公告
暂无公告