最简单的办法文件->页面设置->去掉页眉和页脚

解决方案 »

  1.   

    文件->页面设置->去掉页眉和页脚这样的话,总是要用户设置,可否在程序中给用户设置好?
      

  2.   

    文件->打印设置
    把页眉和页脚都清除掉..用JavaScript实现,会有提示的..<HTML> 
    <HEAD> 
    <TITLE> New Document </TITLE> 
    <META NAME="Generator" CONTENT="EditPlus"> 
    <META NAME="Author" CONTENT="YC"> 
    <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> 
    </HEAD> <BODY> 
    <br> 
    <br> 
    <br> 
    <br> 
    <br> 
    <br><p align=center> 
    <input type="button" value="清空页码" onclick=pagesetup_null()> <input type="button" value="恢复页吗" onclick=pagesetup_default()><br> </p> 
    </BODY> 
    </HTML>