如何只打印表格里的内容？

要完成的功能是：打印当前显示物料的全部资料
用WebBrowser控件最多做到不打印IE的页眉页脚，但是还是会把整个页面包含的其他控件打印出来；想要实现只打印表格内容，怎么做呢？

请各位大虾指点，多谢了！

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

<script language="javascript">
//確認刪除

function printReport()
{
alert("此列印僅提供列印當頁資料,如需列印全部資料,請點選[產生Excel檔]另存為Excel檔再進行列印");
disableButton();
pageSetup_null();
window.print();
enableButton();
}

function disableButton()
{
try{
Form1.all.TableButtonList.style.display='none';
}catch(e){ }
}
function enableButton()
{
try{
Form1.all.TableButtonList.style.display='';
}catch(e){ }
}
</script>
<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,""
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&b第 &p 頁，共 &P 頁"
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>
上面的disableButton();
函数就是用来隐藏你不想打印的部分的。你可以根据我的函数修改。把不需要打印的Table隐藏掉
<html>
<head>
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<title>看看</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<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></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=打印          onclick=document.all.WebBrowser.ExecWB(6,1)>
  <input  type=button  value=直接打印  onclick=document.all.WebBrowser.ExecWB(6,6)>
  <input  type=button  value=页面设置  onclick=document.all.WebBrowser.ExecWB(8,1)>
</p>
  <p>    <input  type=button  value=打印预览  onclick=document.all.WebBrowser.ExecWB(7,1)>
    <br/>
    </p>
  <hr align="center" width="90%" size="1" noshade>
</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>
<hr align="center" width="90%" size="1" noshade class="NOPRINT" >

<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>
</body>
</html>