自带的打印预览

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) 关闭窗体无提示 
<style media=print> 
.Noprint{display:none;}<!--用本样式在打印时隐藏非打印项目--> 
.PageNext{page-break-after: always;}<!--控制分页--> 
</style> 
<object  id= "WebBrowser"  width=0  height=0  classid= "CLSID:8856F961-340A-11D0-A96B-00C04FD705A2">    
</object>    
 
<center class= "Noprint" >
<input type=button value=打印 οnclick=document.all.WebBrowser.ExecWB(6,1)> 
<input type=button value=直接打印 οnclick=document.all.WebBrowser.ExecWB(6,6)> 
<input type=button value=页面设置 οnclick=document.all.WebBrowser.ExecWB(8,1)> 
</p> 
<p> <input type=button value=打印预览 οnclick=document.all.WebBrowser.ExecWB(7,1)> 
</center>