VBScript实现IE浏览器直接打印功能

最新推荐文章于 2021-06-08 11:12:33 发布
最新推荐文章于 2021-06-08 11:12:33 发布
阅读量1.1k 收藏
点赞数 1
分类专栏： 前端脚本 文章标签： 浏览器 ie vbscript webbrowser
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
    <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
    <title>打印测试</title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    <!--media=print 这个属性可以在打印时有效-->
    <style media="print">
        .Noprint
        {
            display: none;
        }
        .PageNext
        {
            page-break-after: always;
        }
    </style>
    <style>
        .tdp
        {
            border-bottom: 1 solid #000000;
            border-left: 1 solid #000000;
            border-right: 0 solid #ffffff;
            border-top: 0 solid #ffffff;
        }
        .tabp
        {
            border-color: #000000 #000000 #000000 #000000;
            border-style: solid;
            border-top-width: 2px;
            border-right-width: 2px;
            border-bottom-width: 1px;
            border-left-width: 1px;
        }
        .NOPRINT
        {
            font-family: "宋体";
            font-size: 9pt;
        }
    </style>


<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>
    <center class="Noprint">
        <p>
            <object id="WebBrowser" classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height="0"
                width="0">
            </object>
  
<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> 
       </p>
    </center>
    <table width="90%" border="0" align="center" cellpadding="2" cellspacing="0" class="tabp">
        <tr>
            <td colspan="3" class="tdp">
                第1页
            </td>
        </tr>
        <tr>
            <td width="29%" class="tdp">
                 
            </td>
            <td width="28%" class="tdp">
                 
            </td>
            <td width="43%" class="tdp">
                 
            </td>
        </tr>
        <tr>
            <td colspan="3" class="tdp">
                 
            </td>
        </tr>
        <tr>
            <td colspan="3" class="tdp">
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                        <td width="50%" class="tdp">
                            <p>
                                这样的报表</p>
                            <p>
                                对一般的要求就够了。</p>
                        </td>
                        <td>
                             
                        </td>
                    </tr>
                </table>
            </td>
        </tr>
    </table>
    <!--分页-->
    <div class="PageNext">
    </div>
    <table width="90%" border="0" align="center" cellpadding="2" cellspacing="0" class="tabp">
        <tr>
            <td class="tdp">
                第2页
            </td>
        </tr>
        <tr>
            <td class="tdp">
                看到分页了吧
            </td>
        </tr>
        <tr>
            <td class="tdp">
                 
            </td>
        </tr>
        <tr>
            <td class="tdp">
                 
            </td>
        </tr>
        <tr>
            <td class="tdp">
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                        <td width="50%" class="tdp">
                            <p>
                                这样的报表</p>
                            <p>
                                对一般的要求就够了。</p>
                        </td>
                        <td>
                             
                        </td>
                    </tr>
                </table>
            </td>
        </tr>
    </table>
    <!--分页-->
    <div class="PageNext">
    </div>
    <table width="90%" border="0" align="center" cellpadding="2" cellspacing="0" class="tabp">
        <tr>
            <td class="tdp">
                第3页
            </td>
        </tr>
        <tr>
            <td class="tdp">
                看到分页了吧
            </td>
        </tr>
        <tr>
            <td class="tdp">
                 
            </td>
        </tr>
        <tr>
            <td class="tdp">
                 
            </td>
        </tr>
        <tr>
            <td class="tdp">
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                        <td width="50%" class="tdp">
                            <p>
                                这样的报表</p>
                            <p>
                                对一般的要求就够了。</p>
                        </td>
                        <td>
                             
                        </td>
                    </tr>
                </table>
            </td>
        </tr>
    </table>
<div class="PageNext">
    </div>
<table  class="tabp">
<tr>
<td>test</td>
</tr>
</table>
</body>
</html>
香瓜不甜
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Vbscript生成Excel报表的常用操作总结
09-04
主要介绍了Vbscript生成Excel报表的常用操作总结,涵盖方方面面的Excel操作命令,不容错过,需要的朋友可以参考下
在 IE 中用VBScript 实现不提示直接打印
James.Duan@CSDN
11-04 1494
 首先在HTML 页面中加入WebBrowser 的Object:   之后，使用如下代码进行打印： sub printvb()   wb.execwb 6,2,3End Sub 关键代码    wb.execwb 6,2,3 可以在 VBScript 方式下实际无需提示的直接打印，但奇怪的是用同样的参数，在 Javascript 方式下IE 依然会弹出打印对话
vbs ie 生成html,利用vbs脚本实现设置IE的打印页眉页脚信息
weixin_39602615的博客
06-08 122
将下面的内容保存成.vbs文件，然后双击执行，在打开ie页面，在页面中点击右键，看看菜单中多了个什么！！：)optionexplicitdimhkey_root,hkey_path,hkey_key,filepathdimfs,fso,regwshhkey_root="hkey_current_user"hkey_path="\software\microsoft\internetexpl...
VBSCRIPT控制网页打印页眉和页脚
weixin_30920091的博客
03-31 72
代码 <metacontent="EditPlus"name="Generator"/><metacontent="YC"name="Author"/><scriptlanguage="VBScript">dimhkey_root,hkey_path,hkey_keyhkey_root="HKEY_CURRENT_USE...
IE中用VBScript不提示直接打印的代码
09-06
在 IE 中用VBScript 实际不提示直接打印
（转）js控制IE打印功能
技术男的窝（搞定c、c++、java、linux、shell）
10-19 272
今天做了个JS控制IE打印功能， 原始链接为：[url]http://hi.baidu.com/chengliangasd/item/bb512f17934a8724f6625cf8[/url] js 控制IE打印 首先在网页中添加： 然后就可以依次加入功能按钮了： &nbsp; 将这两块东西放...
vbs打开ie两种方法 在VBScript中启动IE浏览器的实现代码
01-05
set IE = CreateObject(InternetExplorer.Application) IE.Visible = true IE.Navigate StartURL 第二种方法 WScript.Shell dim Wsh Set Wsh=WScript.CreateObject(WScript.Shell) On error Resume Next ...
基于VBScript实现WinCC过程数据归档.zip
03-16
基于VBScript实现WinCC过程数据归档.zip 介绍了关于基于VBScript实现WinCC过程数据归档.zip的详细说明，提供WINCC的技术资料的下载。
用vbscript实现隐藏任务栏图标的脚本
09-06
一个可以隐藏任务栏图标的脚本，方便需要隐藏任务栏图标的朋友
node-v10.22.0-darwin-x64.tar.xz
05-03
Node.js，简称Node，是一个开源且跨平台的JavaScript运行时环境，它允许在浏览器外运行JavaScript代码。Node.js于2009年由Ryan Dahl创立，旨在创建高性能的Web服务器和网络应用程序。它基于Google Chrome的V8 JavaScript引擎，可以在Windows、Linux、Unix、Mac OS X等操作系统上运行。 Node.js的特点之一是事件驱动和非阻塞I/O模型，这使得它非常适合处理大量并发连接，从而在构建实时应用程序如在线游戏、聊天应用以及实时通讯服务时表现卓越。此外，Node.js使用了模块化的架构，通过npm（Node package manager，Node包管理器）,社区成员可以共享和复用代码，极大地促进了Node.js生态系统的发展和扩张。 Node.js不仅用于服务器端开发。随着技术的发展，它也被用于构建工具链、开发桌面应用程序、物联网设备等。Node.js能够处理文件系统、操作数据库、处理网络请求等，因此，开发者可以用JavaScript编写全栈应用程序，这一点大大提高了开发效率和便捷性。 在实践中，许多大型企业和组织已经采用Node.js作为其Web应用程序的开发平台，如Netflix、PayPal和Walmart等。它们利用Node.js提高了应用性能，简化了开发流程，并且能更快地响应市场需求。
基于JAVA的物流管理系统的源码设计与实现.zip
05-03
毕业设计-->物流管理系统的设计与实现（Java版本） 采用Struts2+hibernate+Oracle10g+Tomcat 涉及车辆管理，配送点管理，运输方式管理，订单管理，员工管理，用户管理，部门管理，权限管理，角色管理等基础管理功能。
基于VB+access实现的成绩分析统计系统(论文+源代码).zip
05-03
基于VB+access实现的成绩分析统计系统(论文+源代码) 【适用人群】：适用于希望学习不同技术领域的小白或进阶学习者。可作为毕设项目、课程设计、大作业、工程实训或初期项目立项。
node-v10.14.2-linux-x64.tar.xz
05-03
Node.js，简称Node，是一个开源且跨平台的JavaScript运行时环境，它允许在浏览器外运行JavaScript代码。Node.js于2009年由Ryan Dahl创立，旨在创建高性能的Web服务器和网络应用程序。它基于Google Chrome的V8 JavaScript引擎，可以在Windows、Linux、Unix、Mac OS X等操作系统上运行。 Node.js的特点之一是事件驱动和非阻塞I/O模型，这使得它非常适合处理大量并发连接，从而在构建实时应用程序如在线游戏、聊天应用以及实时通讯服务时表现卓越。此外，Node.js使用了模块化的架构，通过npm（Node package manager，Node包管理器）,社区成员可以共享和复用代码，极大地促进了Node.js生态系统的发展和扩张。 Node.js不仅用于服务器端开发。随着技术的发展，它也被用于构建工具链、开发桌面应用程序、物联网设备等。Node.js能够处理文件系统、操作数据库、处理网络请求等，因此，开发者可以用JavaScript编写全栈应用程序，这一点大大提高了开发效率和便捷性。 在实践中，许多大型企业和组织已经采用Node.js作为其Web应用程序的开发平台，如Netflix、PayPal和Walmart等。它们利用Node.js提高了应用性能，简化了开发流程，并且能更快地响应市场需求。
ASP+ACCESS网上购物系统设计(源代码+设计说明书+调研报告).zip
05-03
ASP+ACCESS网上购物系统设计(源代码+设计说明书+调研报告).zip
AO工艺设计计算(全).xls
05-03
污水处理计算书
node-v7.3.0-x86.msi
05-03
Node.js，简称Node，是一个开源且跨平台的JavaScript运行时环境，它允许在浏览器外运行JavaScript代码。Node.js于2009年由Ryan Dahl创立，旨在创建高性能的Web服务器和网络应用程序。它基于Google Chrome的V8 JavaScript引擎，可以在Windows、Linux、Unix、Mac OS X等操作系统上运行。 Node.js的特点之一是事件驱动和非阻塞I/O模型，这使得它非常适合处理大量并发连接，从而在构建实时应用程序如在线游戏、聊天应用以及实时通讯服务时表现卓越。此外，Node.js使用了模块化的架构，通过npm（Node package manager，Node包管理器）,社区成员可以共享和复用代码，极大地促进了Node.js生态系统的发展和扩张。 Node.js不仅用于服务器端开发。随着技术的发展，它也被用于构建工具链、开发桌面应用程序、物联网设备等。Node.js能够处理文件系统、操作数据库、处理网络请求等，因此，开发者可以用JavaScript编写全栈应用程序，这一点大大提高了开发效率和便捷性。 在实践中，许多大型企业和组织已经采用Node.js作为其Web应用程序的开发平台，如Netflix、PayPal和Walmart等。它们利用Node.js提高了应用性能，简化了开发流程，并且能更快地响应市场需求。
ASP+ACCESS在线考试系统设计(源代码+设计说明书).zip
05-03
ASP+ACCESS在线考试系统设计(源代码+设计说明书).zip
node-v11.10.0-linux-ppc64le.tar.xz
最新发布
05-03
Node.js，简称Node，是一个开源且跨平台的JavaScript运行时环境，它允许在浏览器外运行JavaScript代码。Node.js于2009年由Ryan Dahl创立，旨在创建高性能的Web服务器和网络应用程序。它基于Google Chrome的V8 JavaScript引擎，可以在Windows、Linux、Unix、Mac OS X等操作系统上运行。 Node.js的特点之一是事件驱动和非阻塞I/O模型，这使得它非常适合处理大量并发连接，从而在构建实时应用程序如在线游戏、聊天应用以及实时通讯服务时表现卓越。此外，Node.js使用了模块化的架构，通过npm（Node package manager，Node包管理器）,社区成员可以共享和复用代码，极大地促进了Node.js生态系统的发展和扩张。 Node.js不仅用于服务器端开发。随着技术的发展，它也被用于构建工具链、开发桌面应用程序、物联网设备等。Node.js能够处理文件系统、操作数据库、处理网络请求等，因此，开发者可以用JavaScript编写全栈应用程序，这一点大大提高了开发效率和便捷性。 在实践中，许多大型企业和组织已经采用Node.js作为其Web应用程序的开发平台，如Netflix、PayPal和Walmart等。它们利用Node.js提高了应用性能，简化了开发流程，并且能更快地响应市场需求。
编写windows脚本实现ie浏览器安全选项都为启用
03-25
A： 首先，需要了解ie浏览器的安全选项有哪些以及对应的注册表键值。参考微软官方文档： https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/ms537170(v=vs.85)?redirectedfrom=MSDN 然后根据文档中的说明，可以使用Windows脚本语言（如VBScript）来修改注册表键值，以实现启用ie浏览器的安全选项。 以下是一个示例脚本： ```vbscript ' 恢复ie浏览器的默认安全选项 ' 注：需要管理员权限运行 Const HKEY_CURRENT_USER = &H80000001 'DIM RegLocation Dim WshShell, fso Set WshShell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") If WScript.Arguments.Count >= 1 Then RegLocation = WScript.Arguments.Item(0) Else RegLocation = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones" End If Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(fso.GetParentFolderName(wscript.ScriptFullName)) Set objFolderItem = objFolder.ParseName(fso.GetFileName(wscript.ScriptFullName)) If objFolderItem.IsFolder Then WScript.Echo "Please double-click the script file to launch it." WScript.Quit End If ' 修改每个区域的安全选项 For i = 0 To 4 EnableIEOption(i, RegLocation) Next WScript.Echo "IE security options have been enabled for all zones." Function EnableIEOption(zone, RegLoc) ' 定义注册表路径和键名 Dim RegPath RegPath = RegLoc & "\" & zone Dim KeyName Select Case zone Case 0 KeyName = "2500" Case 1 KeyName = "2501" Case 2 KeyName = "2502" Case 3 KeyName = "2503" Case 4 KeyName = "2504" Case Else Exit Function End Select ' 设置对应键值的数值为 0 WshShell.RegWrite "HKEY_CURRENT_USER\" & RegPath & "\" & KeyName, 0, "REG_DWORD" End Function ``` 通过双击运行以上脚本，即可将ie浏览器的安全选项全部启用。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值