To add a printing footer to HTML page

MyPlanet 2003-08-20 10:16:48

Is it possible to add a printing footer to HTML page? If so, please show me some code.

...全文

41 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

MyPlanet 2003-08-21

打赏
举报

And I don't want to use Factory object.

wanghr100 2003-08-21

打赏
举报

You have two ways to solve.
1.amend regedit
2.use print component

1.// But have some security warning.

<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"
'//Not print footer
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
'//print footer.
function pagesetup_default()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="\header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&bPage，&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="clear footer" onclick=pagesetup_null()> <input type="button" value="resume footer" onclick=pagesetup_default()><br>

</p>
</BODY>
</HTML>

2.
http://www.csdn.net/cnshare/soft/17/17851.shtm

- when page mirror was used, after a page break the text indentation was sometimes wrong - hyphenation code was broken - workaround for word files which have space characters in table definitions ...

+ added ability to set any custom page order for printing (i.e. 3,2,1,5,4 ) + [enterprise] added variables "AUTHLOGIN" and "AUTHGROUP" inside the any report + [enterprise] now any report file can be ...

Git高级实战问答视频 git最常用、最重要的git功能。本视频通过问答形式由浅入深、通过真实演示，... 如何在提交前撤消'git add'。你的问题是我们持续创作的动力！