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

最新推荐文章于 2023-09-18 14:50:43 发布
最新推荐文章于 2023-09-18 14:50:43 发布
阅读量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中调用IE浏览器
seary_yuan的博客
07-14 4441
a.vbs文件内容如下： 双击执行“a.vbs”文件，即可调用浏览器，并访问网址 下面的代码就是自动打开百度并输入服务器之家进行搜索的代码 用vbs实现网站自动登录
IE中用VBScript不提示直接打印的代码
09-06
在 IE 中用VBScript 实际不提示直接打印
VBScript中的循环语句（一）
shelyer1的博客
07-24 2367
VBScript中主要有4种循环语句，分别如下： （1）Do…Loop：当（或直到）条件为True时循环； （2）While…Wend：当条件为True时循环； （3）For…Next：指定循环次数，使用计数器重复运行语句； （4）For Each…Next：对于集合中的每项或数组中的每个元素，重复执行一组语块。 1、Do…Loop语句 当条件为True时或条件变为True之前重复执行某语句块。 主要语句结构如下： （1）先判断条件再执行 Do [while / until condition] [st
vb程序和html有什么区别,VB和VBS 是一回事吗? 有什么不同吗?
weixin_27153203的博客
06-28 1176
VBScript是Visual Basic Script的简称，有时也被缩写为VBS。VBScript是微软开发的一种脚本语言，可以看作是VB语言的简化版，与VBA的关系也非常密切。它具有原语言容易学习的特性，并继承了JavaScript的跨平台的特性。目前这种语言广泛应用于网页和ASP程序制作，同时还可以直接作为一个可执行程序。用于调试简单的VB语句非常方便。由于VBScript可以通过Wind...
完美直接打印方法三例2.0
xo_tobacoo
05-05 149
1）javascript版本，缺陷直接打印不能实现。 使用document.all.WebBrowser.ExecWB(6,6) 2）javascript实现2，缺陷：需要装打印机驱动 用javascript 在客户端直接打印输出， 这个方案的思路是用windows的FileSystemObject，打开COM1或者LPT1，然后就把指令写进去就可以了，代码片断如下： &lt;scrip...
vbs :自动安安装打印机驱动。
最新发布
半条虫 免费软件发布博客
09-18 539
【代码】vbs :自动安安装打印机驱动。
在 IE 中用VBScript 实现不提示直接打印
James.Duan@CSDN
11-04 1509
 首先在HTML 页面中加入WebBrowser 的Object:   之后，使用如下代码进行打印： sub printvb()   wb.execwb 6,2,3End Sub 关键代码    wb.execwb 6,2,3 可以在 VBScript 方式下实际无需提示的直接打印，但奇怪的是用同样的参数，在 Javascript 方式下IE 依然会弹出打印对话
VBS语法基础
Jacksjie的博客
06-09 244
vbs语法基础
VBS打印指定目录下所有EXCEL的所有SHEET
allway2的博客
12-17 907
Set objExcel = CreateObject("Excel.Application") objExcel.DisplayAlerts = False folderName = "C:\excelprint\" Set FSOLibrary = CreateObject("Scripting.FileSystemObject") Set fldr = FSOLibrary.GetFo...
Web打印的实现方法
xwchen的专栏
05-31 5709
目前，在做B/S结构程序开发的时候，最棘手和最令人头疼的问题之一就是Web打印。往往打印出来的效果和自己预期的效果相差甚远，那么怎样才能打印出自己想要的效果呢？本文阐述的方法将解决这一问题，从而使得Web打印变得简单易用。 我们知道要实现Web方式的打印不外乎三种方法：第一就是利用大家都熟悉的Office工具来实现Web打印，如利用Word或Excel的打印工具来实现Web打印，该方法的难点是
Vbscript生成Excel报表的常用操作总结
09-04
主要介绍了Vbscript生成Excel报表的常用操作总结,涵盖方方面面的Excel操作命令,不容错过,需要的朋友可以参考下
vbs脚本,设置默认打印机
03-20
vbs脚本,设置默认打印机, 服务器管理员可以用于用户登录后指定默认打印机.
VB实现打印文件
01-05
VB如何实现打印文件，请看介绍！
打印机任务管理的vbs脚本
05-06
打印机任务管理的vbs脚本 打印机任务管理的vbs脚本 打印机任务管理的vbs脚本
nodejs调用vbs打印本地excel文件
两岁半的专栏
11-11 1050
vbs打印本地文件代码 Dim XL Dim XLWkbk Dim fso, fullPathToZip set fso = CreateObject("Scripting.FileSystemObject") fullPathToZip = fso.GetFile(Wscript.ScriptFullName).ParentFolder.Path + "\printTemp.xlsx" Set XL = CreateObject("excel.application") XL.Visible = Tr
VBS实现添加网络打印机
叶为正的博客
09-03 914
公司最近在上AD域，通过域下发vbs脚本实现自动安装网络打印机，不用人工手动给别人安装 Option Explicit On Error Resume Next Dim objNetwork, strUNCPrinter, bForce, bUpdateProfile strUNCPrinter = "\\172.16.1.250\XXX打印机" bForce = "True" bUpdateProfile = "False" Set objNetwork = CreateObject("WScript.N
编写windows脚本实现ie浏览器安全选项都为启用
03-25
然后根据文档中的说明，可以使用Windows脚本语言（如VBScript）来修改注册表键值，以实现启用ie浏览器的安全选项。 以下是一个示例脚本： ```vbscript ' 恢复ie浏览器的默认安全选项 ' 注：需要管理员权限运行 ...

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值