求救用控件自动打印为什么只出来一张空白页50分

billy36 2004-01-31 12:27:43
<object classid="clsid:8856F961-340A-11D0-A96B-00C04FD705A2" height="0" id="WebBrowser" width="0"></object>
<script>
WebBrowser.ExecWB(6,6);
</script>
下面是内容.打印是打印了可是打出来的只是一张白纸,有的时候纸上的页码也会打出来.请问这是怎么回事?

我的最终效果是一但IE打开这一页什么也不用管打印机自动打出这一页.
...全文
193 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
wcqgm 2004-01-31
  • 打赏
  • 举报
 回复
以上的程序我没有整理，可能会有一些错误，你自己改一下就可以了。我以前做打印的程序就是用这个的
wcqgm 2004-01-31
  • 打赏
  • 举报
 回复
<html>
<head>
//WEB控制打印大全 类型： 编程
//1、控制"纵打"、 横打”和“页面的边距。
<script language="javascript">
function SetPrintSettings() {
// -- advanced features
factory.printing.SetMarginMeasure(2) // measure margins in inches
factory.SetPageRange(false, 1, 3) // need pages from 1 to 3
factory.printing.printer = "HP DeskJet 870C"
factory.printing.copies = 2
factory.printing.collate = true
factory.printing.paperSize = "A4"
factory.printing.paperSource = "Manual feed"

// -- basic features
factory.printing.header = "This is MeadCo"
factory.printing.footer = "Advanced Printing by ScriptX"
factory.printing.portrait = false
factory.printing.leftMargin = 1.0
factory.printing.topMargin = 1.0
factory.printing.rightMargin = 1.0
factory.printing.bottomMargin = 1.0
}
</script>

//（2）
<script language="javascript">
function printsetup(){
// 打印页面设置
wb.execwb(8,1);
}
function printpreview(){
// 打印页面预览
wb.execwb(7,1);
}

function printit()
{
if (confirm(*确定打印吗？*)) {
wb.execwb(6,6)
}
}
</script>

</head>
<body>
<OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"

height=0 id=wb name=wb width=0></OBJECT>
<input type=button name=button_print value="打印"

onclick="javascript:printit()">
<input type=button name=button_setup value="打印页面设置"

onclick="javascript:printsetup();">
<input type=button name=button_show value="打印预览"

onclick="javascript:printpreview();">
<input type=button name=button_fh value="关闭"

onclick="javascript:window.close();">

/*------------------------------------------------
关于这个组件还有其他的用法，列举如下：
WebBrowser.ExecWB(1,1) 打开
Web.ExecWB(2,1) 关闭现在所有的IE窗口，并打开一个新窗口
Web.ExecWB(4,1) 保存网页
Web.ExecWB(6,1) 打印
Web.ExecWB(7,1) 打印预览
Web.ExecWB(8,1) 打印页面设置
Web.ExecWB(10,1) 查看页面属性
Web.ExecWB(15,1) 好像是撤销，有待确认
Web.ExecWB(17,1) 全选
Web.ExecWB(22,1) 刷新
Web.ExecWB(45,1) 关闭窗体无提示
*/


2、分页打印
<HTML>
<HEAD>
<STYLE>
P {page-break-after: always}
</STYLE>
</HEAD>
<BODY>
<%while not rs.eof%>
<P><%=rs(0)%></P>
<%rs.movenext%>
<%wend%>
</BODY>
</HTML>

3、ASP页面打印时如何去掉页面底部的路径和顶端的页码编号
（1）ie的文件-〉页面设置-〉讲里面的页眉和页脚里面的东西都去掉，打印就不出来了。
（2）<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>

4、浮动帧打印
<SCRIPT LANGUAGE=javascript>
function button1_onclick() {
var odoc=window.iframe1.document;
var r=odoc.body.createTextRange();
var stxt=r.htmlText;
alert(stxt)
var pwin=window.open("","print");
pwin.document.write(stxt);
pwin.print();
}
</SCRIPT>

5、用FileSystem组件实现WEB应用中的本地特定打印
<script Language=VBScript>
function print_onclick //打印函数
dim label
label=document.printinfo.label.value //获得HTML页面的数据
set objfs=CreateObject("Scripting.FileSystemObject") //创建FileSystem组件对象的实例
set objprinter=objfs.CreateTextFile ("LPT1:",true) //建立与打印机的连接
objprinter.Writeline("__________________________________") //输出打印的内容
objprinter.Writeline("| |")
objprinter.Writeline("| 您打印的数据是："&label& " |”)
objprinter.Writeline("| |")
objprinter.Writeline("|_________________________________|")
objprinter.close //断开与打印机的连接
set objprinter=nothing
set objfs=nothing // 关闭FileSystem组件对象
end function
</script>
服务器端脚本：
<%………
set conn=server.CreateObject ("adodb.connection")
conn.Open "DSN=name;UID=XXXX;PWD=XXXX;"
set rs=server.CreateObject("adodb.recordset")
rs.Open(“select ……”),conn,1,1
……….%> //与数据库进行交互
HTML页面编码：
<HTML>
………
<FORM ID=printinfo NAME="printinfo" >
<INPUT type="button" value="打印>>" id=print name=print > //调用打印函数
<INPUT type=hidden id=text1 name=label value=<%=………%>> //保存服务器端传来的数据
………
</HTML>


<OBJECT
id=menu1
onmouseover="menu1.style.display=''"
style=" POSITION: ABSOLUTE;DISPLAY: none; Z-INDEX: 1000; HEIGHT: 200px"
onmouseout="menu1.style.display='none'"
type=text/x-scriptlet
data=caidan.htm
VIEWASTEXT>
</OBJECT>
<SCRIPT LANGUAGE=vbscript >
function document_oncontextmenu()
document_oncontextmenu=false
menu1.style.LEFT=window.event.x
menu1.style.TOP=window.event.y
menu1.style.display=""
end function
</SCRIPT>
文件2：
caidan.htm
<div style='position:absolute;left:0;top:0;width:152;height:200;font:14;color:white;background:black;border:1 solid black'>
<div onclick="alert(this.innerText)">我是大笨狼1</div>
<div onclick="alert(this.innerText)">我是大笨狼2</div>
<div onclick="alert(this.innerText)">我是大笨狼3</div>
<div onclick="alert(this.innerText)">我是大笨狼4</div>
<div onclick="alert(this.innerText)">我是大笨狼5</div>
<div onclick="alert(this.innerText)">我是大笨狼6</div>
<div onclick="alert(this.innerText)">我是大笨狼7</div>
</div>


纪俊 2004-01-31
  • 打赏
  • 举报
 回复
这句看看<input onclick=document.all.WebBrowser.ExecWB(6,1) type=button value=打印 name=Button>
纪俊 2004-01-31
  • 打赏
  • 举报
 回复
这个问题你要看WebBrowser组件的相关用法和参数才行
konnan 2004-01-31
  • 打赏
  • 举报
 回复

这样的话当然是空白了啊,因为下面的内容还没有下载回来你就打印了所以你只能看到空白页,应该这样


页面内容

<object classid="clsid:8856F961-340A-11D0-A96B-00C04FD705A2" height="0" id="WebBrowser" width="0"></object>
<script>
WebBrowser.ExecWB(6,6);
</script>
求救，VS2022事件处理程序里参数为空
VS2022控件无法添加事件
msflexgrid允许大选择_各位大侠,我想求救:如何随机选择MSHFLexGrid中某一行,? 爱问知识人...
注意MSHFlexGrid 控件所显示的是只读数据，无法完成你所要求的操作。见MSDN的说明：MSHFlexGrid 控件Microsoft Hierarchical FlexGrid (MSHFlexGrid) 控件对表格数据进行显示和操作。在对包含字符串和图片的表格进行...
ASP.NET 4.0中的单点登录
用的是VS2005,发现我的设计页面的内容很多时,从在form1.cs里敲代码,切换到form1.design进行控件更改时,总是要空白一会,大概持续7秒以上.这是什么情况?能不能设置?好像切换到form1.design时VS还会检查一遍设计...
vs2005发布的网站中无法显示图片的原因,希望引以为戒!
做了一个收集用户信息的页面,用了不少背景图片,在vs2005中 预览页面 都是可以正常显示图片的,于是我就发布网站,在本地也没有检查就上传到服务器上,结果打开一看,除了文本和字体,眼前一片空白,什么都没有显示,我从来...
邮箱无法登陆的解决方法
regsvr32 jscript.dll今天去找同学玩，顺便帮他看机器的奇怪问题，用ie无法...知之为知之，不知google之为解决疑难问题的好方法，不过百度google都试了，找到了类似问题的帖子，但是所有搜索到的结论都是 “重装系统”
ASP

28,407

社区成员

356,948

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章