28,391
社区成员
发帖
与我相关
我的任务
分享怎么判断打印是否结束？
我要打印一张表，点击打印按钮后开始打印，我将打印放在了body中,用onload时间来触发打印。已经实现。现碰到以下两个小问题。
问题1：怎么判断打印是否结束？
问题2：怎么让打印的时候将页面的标题和页眉和页角都不参与打印呢？
谢咯。
问题1：怎么判断打印是否结束？
问题2：怎么让打印的时候将页面的标题和页眉和页角都不参与打印呢？
谢咯。
...全文
请发表友善的回复…
发表回复
cometzg 2004-06-11
- 打赏
- 举报
你应该想到浏览者也不是傻瓜，没必要什么都做的很详细。
bingbingcha 2004-06-11
- 打赏
- 举报
不行哦。。这段代码试过了。提示说网页有错误。。郁闷啊。
nchen123 2004-06-11
- 打赏
- 举报
判断打印是否完成， 这个没法做到。
虽然有 onbeforeprint 和 onafterprint 事件， 但是：
onafterprint 事件在用户发出 “打印” 或者 “打印预览” 命令的一瞬间就被触发了。
虽然有 onbeforeprint 和 onafterprint 事件， 但是：
onafterprint 事件在用户发出 “打印” 或者 “打印预览” 命令的一瞬间就被触发了。
lawdoor 2004-06-11
- 打赏
- 举报
可以设置页眉和页角为空，仅供参考：
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="YC">
<script language="VBScript">
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"
'//设置网页打印的页眉页脚为空
function pagesetup_null()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="\header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
hkey_key="\footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
end function
'//设置网页打印的页眉页脚为默认值
function pagesetup_default()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="\header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b页码，&p/&P"
hkey_key="\footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d"
end function
</script>
</HEAD>
<BODY>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/><p align=center>
<input type="button" value="清空页码" onclick=pagesetup_null()> <input type="button" value="恢复页吗" onclick=pagesetup_default()><br/>
</p>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="YC">
<script language="VBScript">
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"
'//设置网页打印的页眉页脚为空
function pagesetup_null()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="\header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
hkey_key="\footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
end function
'//设置网页打印的页眉页脚为默认值
function pagesetup_default()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="\header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b页码，&p/&P"
hkey_key="\footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d"
end function
</script>
</HEAD>
<BODY>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/><p align=center>
<input type="button" value="清空页码" onclick=pagesetup_null()> <input type="button" value="恢复页吗" onclick=pagesetup_default()><br/>
</p>
</BODY>
</HTML>
99percent 2004-06-11
- 打赏
- 举报
打印机的速度你可以预算?
或者在页尾加个标识,当此标识LOAD入的时候提示吧?
用坐标调整吗?
不清楚.
帮你UP一下.
或者在页尾加个标识,当此标识LOAD入的时候提示吧?
用坐标调整吗?
不清楚.
帮你UP一下.
bingbingcha 2004-06-11
- 打赏
- 举报
在线等啊！！
bingbingcha 2004-06-11
- 打赏
- 举报
自己顶一下
bingbingcha 2004-06-11
- 打赏
- 举报
我找到了一个也办法也可以实现。就是只打印当前表单内的内容。。
xxrl 2004-06-11
- 打赏
- 举报
那段代码我曾经研究过，的确有错误，当然，不测试就粘贴，当然有错误喽
如果楼主需要知道打印结束，可以自己写组件，如果楼主不会，那放弃
如果楼主需要知道打印结束，可以自己写组件，如果楼主不会，那放弃
