打印问题，急！

yefeng119 2005-07-01 01:10:03

我现在被打引这个问题搞的人都快疯掉了，是这样的。
我现在要打印一张图片，这张图片是从数据库里调用文件路径来的
现在要求打引去掉页眉页角，当然了不是通过IE本身的功能来完成打引的，是我要放个按钮来完成的。
现在情况是：1、我去不掉页眉页角，虽然有一段程序，但是完全没用啊
如下：<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>
2、打印出来的图片不是全图，怎么样可以让他缩小打呢
我在网页中使用了
<body onbeforeprint="printsub.style.display='none';"
onafterprint="printsub.style.display='';">
<input type=button name="printsub" value=" 打印 " onclick="self.print();">
<iframe name="aaa" src="<%=picname%>" scrolling="no" FRAMEBORDER="0" width="150%" height="200%" align="middle"></iframe>
但是效果不好，图的三分之一还是打不来啊。
求求大家帮帮我啊，在线等！

...全文

131 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

cqhunter 2005-07-02

打赏
举报

打印操作的实现
此功能的实现主要是利用WebBrowser控件的函数接口来实现打印、打印预览（默认的）、
页面设置（默认的）。
<object ID='WebBrowser1' WIDTH=0 HEIGHT=0
CLASSID='CLSID:8856F961-340A-11D0-A96B-00C04FD705A2'>
//打印
WebBrowser1.ExecWB(6,1);
//打印设置
WebBrowser1.ExecWB(8,1);
//打印预览
WebBrowser1.ExecWB(7,1);

yefeng119 2005-07-01