在使用下面的语句时最好Try{}catch(e){}一下以为5.5以上的IE才可以使用
以下的内容在IE6 7 上测试过 ok FF下测试有问题
注意，以下的方法调用 在IE6下，可以加括号，在IE7下不能加括号
为了方便最好都不要加括号
- WebBrowser.ExecWB(1,1) 打开
- WebBrowser.ExecWB(2,1) 关闭现在所有的IE窗口，并打开一个新窗口
- WebBrowser.ExecWB(4,1) 保存网页
- WebBrowser.ExecWB(6,1) 打印
- WebBrowser.ExecWB(7,1) 打印预览
- WebBrowser.ExecWB(8,1) 打印页面设置
- WebBrowser.ExecWB(10,1) 查看页面属性
- WebBrowser.ExecWB(15,1) 好像是撤销，有待确认
- WebBrowser.ExecWB(17,1) 全选
- WebBrowser.ExecWB(22,1) 刷新
- WebBrowser.ExecWB(45,1) 关闭窗体无提示
其中最后一项WebBrowser.ExecWB(45,1)可以有效解决IE7下，使用
WebBrowser.ExecWB(7,1)执行打印预览后返回到原窗口时，window.close()方法失效的问题。
- <style media="print" type="text/css">
- .Noprint{display:none;}
- .PageNext{page-break-after: always;}
- </style>
然后给不想打印的页面元素添加： class="Noprint" ，那就不会出现在打印和打印预览中了。
想分页的地方添加： <div class="PageNext></div>就可以了。
- <div class="PageNext">
- 打印的内容 第一页
- </div>
- <div class="PageNext">
- 打印的内容 第二页
- </div>
- <div class="PageNext">
- 打印的内容 第三页
- </div>
如果是预览则执行下面代码：
用临时窗口打开预览或打印的时候可以这样写
- WebBrowser.ExecWB(7,1);
- window.opener=null;
- window.close();
对于A4纸张，横打用920，竖打用640
- 1、自动换行：
- <style type="text/css">
- .AutoNewline
- {
- word-break: break-all;/*必须*/
- }
- </style>
- <table>
- <tr>
- <td class="AutoNewline">自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行自动换行</td>
- </tr>
- </table>
- 2、不换行：
- <style type="text/css">
- .NoNewline
- {
- word-break: keep-all;/*必须*/
- }
- </style>
- <table>
- <tr>
- <td class="NoNewline">不换行不换行不换行不换行不换行不换行不换行不换行不换行不换行</td>
- </tr>
- </table>
页眉页脚的设置
google了一把发现都是用vsscript写的例子 不过我学过vb 所以可以看懂哈，但这个不影响你使用的，以下是代码
- <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>
页眉页脚的一些参数用法
窗口标题 &w
网页地址 (URL) &u
短日期格式（由"控制面板"中的"区域设置"指定） &d
长日期格式（由"控制面板"中的"区域设置"指定） &D
当前页码 &p
总页数 &P
文本右对齐（后跟 &b） &b
文字居中（&b&b 之间） &b&b
网页地址 (URL) &u
短日期格式（由"控制面板"中的"区域设置"指定） &d
长日期格式（由"控制面板"中的"区域设置"指定） &D
当前页码 &p
总页数 &P
文本右对齐（后跟 &b） &b
文字居中（&b&b 之间） &b&b