IE中用VBScript不提示直接打印的代码_vbs

首先在HTML 页面中加入WebBrowser 的Object:
<OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0></OBJECT>
之后，使用如下代码进行打印：
<script language="VBScript">
sub printvb()
wb.execwb 6,2,3
End Sub
</script>
关键代码 wb.execwb 6,2,3 可以在 VBScript 方式下实际无需提示的直接打印，但奇怪的是用同样的参数，在 Javascript 方式下IE 依然会弹出打印对话窗口，也许是因为VBScript 是Microsoft 开发的专用于 IE 的吧，而 Javascript 毕竟是外人：）
另找到一个较全面的例子，如下:
6=OLECMDID_PRINT
2=OLECMDEXECOPT_DONTPROMPTUSER,
2+1=PRINT_WAITFORCOMPLETION + PRINT_DONTBOTHERUSER
WB.ExecWB 6, 2, 3, 0
<HTML>
<HEAD>
<OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Sub window_onunload
On Error Resume Next
Set WB = nothing
End Sub
Sub vbPrintPage ( x , y , z )
OLECMDID_PRINT = 6
OLECMDEXECOPT_DODEFAULT = 0
OLECMDEXECOPT_PROMPTUSER = 1
OLECMDEXECOPT_DONTPROMPTUSER = 2
On Error Resume Next
WB.ExecWB x, y, z, 0
End Sub
</SCRIPT>
</HEAD>
<BODY>
<TABLE BORDER=1><TR><TD>
<INPUT TYPE="BUTTON" VALUE="Print" ONCLICK="vbPrintPage 6, 2, 3"><BR>
<INPUT TYPE="BUTTON" VALUE="Preview" ONCLICK="vbPrintPage 7, 1, 0"><BR>
<INPUT TYPE="BUTTON" VALUE="Page Setup" ONCLICK="vbPrintPage 8, 1, 0"><BR>
</TD>
<TD bgcolor="green">Print Test
</TD></TR></TABLE>
</BODY>
</HTML>

时间： 2024-09-14 23:41:15

IE中用VBScript不提示直接打印的代码_vbs的相关文章

vbscript ms owc 封裝代码_vbs

复制代码 代码如下: ''owc.vbs class owc private o '传入物件 public property set set_obj(o_id) set o=o_id end property '画图矩形图 'chart_bgcolor_图表的背景颜色 'chartCaption_图表的标题 'chartCaption_fontColor_图表标题颜色 'Interior_Color_矩形内的填充颜色 'Caption_名称 'categories_名称数组 'values_值数

vbscript自动配置IIS的代码_vbs

复制代码 代码如下: strServerName =""localhost"" strRootPath=""g:\documents"" ''虚拟目录路径 strVRName=""Test"" ''虚拟目录名称 strDefaultDoc=""index.asp"" ''起始文档 Dim objIIS ''MsgBox ""II

VBScript Enun Remote CMD Shell代码_vbs

效果如图: 复制代码 代码如下: '============================' Enun Remote CMDShell v 1.0'============================ Option Explicit CONST ACCOUNT_LOCK_TIME = 600000    '账户锁定时间,10分钟CONST LOCKOUT_BAD_COUNT = 3     '密码失败次数CONST DEFAULT_WAIT_TIME = 1000     '默认延时,1秒

如何在Gridview中用JavaScript用提示框来显示鼠标经过的行号

问题描述 如何在Gridview中用JavaScript用提示框来显示鼠标经过的行号??? 解决方案 解决方案二:不是吧,没有人回复啊,好像这个问题不是太难的啊.解决方案三:学习学习JavaScript用的不太好!!!解决方案四:在gridview的rowdatabound事件写if(e.Row.RowType==DataControlRowType.DataRow){e.row.attributes.add("onmouseover","showdiv('"+e.

win2003自动启动-Windows 2003 SP1报错，提示：原因代码: 0x8000005 ~求助

问题描述 Windows 2003 SP1报错,提示:原因代码: 0x8000005 ~求助 Windows 2003 SP1报错,提示:原因代码: 0x8000005 ~求助 系统会经常自动重新启动!请高手解决 急求助! 解决方案 查看系统日志,分析具体错误的模块,错误信息

.Net 文本框实现内容提示的实例代码

 这篇文章主要介绍了.Net 文本框实现内容提示的实例代码,需要的朋友可以参考下 1.Demo下载:   文本框实现内容提示(仿Google.Baidu).rar   2.创建数据库.表(我用的sqlserver2008数据库)    代码如下: CREATE TABLE Ceshi (    id VARCHAR(50) PRIMARY KEY NOT NULL,    cname VARCHAR(30)  ) GO  INSERT INTO Ceshi SELECT NEWID(),'jac

win8系统宽带连接提示错误628代码的解决方法

  最近,有一位win8系统电脑用户跟小编反映说,宽带连接连接补上,系统提示错误628代码.那么,代码628代表的是宽带出现了什么故障呢?win8系统宽带连接提示错误628代码该怎么解决呢?一起来看看今天的教程就知道! 宽带连接提示错误628代码 问题现象:错误628;在连接完成前,连接被远程计算机终止; win8系统宽带连接提示错误628代码的故障原因: 1.选择了身份验证里的"使用可扩展的身份验证协议",如下图所示: 宽带连接 win8系统宽带连接提示错误628代码的故障的解决方法

win8系统宽带连接提示错误628代码的故障原因及解决方法

  问题现象:错误628;在连接完成前,连接被远程计算机终止,具体如下图所示: 故障原因: 1.选择了身份验证里的"使用可扩展的身份验证协议",如下图所示: 解决方法: 1.选择下图红线区域内容. 以上就是对win8系统宽带连接提示错误628代码的故障原因及解决方法的介绍,方法很简单,有同样问题的朋友可以按照上述的方法进行解决.

数据库插入-向mysql中插入数据时报错，错误提示如下，代码如下

问题描述 向mysql中插入数据时报错,错误提示如下,代码如下 com.mysql.jdbc.exceptions.MySQLSyntaxErrorException: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'like,note) values (?,?,?,?,?,?