WebBrowser1实现打印

用WebBrowser1调用网页,如何实现打印,全选,以及复制选定的文字.还有就是页内的搜索?等待中....

解决方案 »

  1.   

    1、控制"纵打"、 横打”和“页面的边距。 
    （1）<script defer> 
    function SetPrintSettings() { 
    　// -- advanced features 
    　factory.printing.SetMarginMeasure(2) // measure margins in inches 
    　factory.SetPageRange(false, 1, 3) // need pages from 1 to 3 
    　factory.printing.printer = "HP DeskJet 870C" 
    　factory.printing.copies = 2 
    　factory.printing.collate = true 
    　factory.printing.paperSize = "A4" 
    　factory.printing.paperSource = "Manual feed" 　// -- basic features 
    　factory.printing.header = "This is MeadCo" 
    　factory.printing.footer = "Advanced Printing by ScriptX" 
    　factory.printing.portrait = false 
    　factory.printing.leftMargin = 1.0 
    　factory.printing.topMargin = 1.0 
    　factory.printing.rightMargin = 1.0 
    　factory.printing.bottomMargin = 1.0 
    } 
    </script> （2） 
    <script language="javascript"> 
    　　function printsetup(){ 
    　　// 打印页面设置 
    　　wb.execwb(8,1); 
    　　} 
    　　function printpreview(){ 
    　　// 打印页面预览 
    　　　　 
    　　wb.execwb(7,1); 
    　　　　　 
    　　　　 
    　　} 　　function printit() 
    　　{ 
    　　if (confirm('确定打印吗？')) { 
    　　wb.execwb(6,6) 
    　　} 
    　　} 
    　　</script> 
    </head> 
    <body> 
    <OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0></OBJECT> 
    <input type=button name=button_print value="打印" onclick="javascript:printit()"> 
    <input type=button　name=button_setup value="打印页面设置" onclick="javascript:printsetup();"> 
    <input type=button　name=button_show value="打印预览" onclick="javascript:printpreview();"> 
    <input type=button name=button_fh value="关闭" onclick="javascript:window.close();"> ------------------------------------------------ 
    关于这个组件还有其他的用法，列举如下： 
    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) 关闭窗体无提示 2、分页打印 
    <HTML> 
    <HEAD> 
    <STYLE>　　 
    　　P {page-break-after: always} 
    </STYLE> 
    </HEAD> 
    <BODY> 
    <%while not rs.eof%> 
    <P><%=rs(0)%></P> 
    <%rs.movenext%> 
    <%wend%> 
    </BODY> 
    </HTML>