我的漫漫程序之旅

专注于JavaWeb开发
随笔 - 39, 文章 - 310, 评论 - 411, 引用 - 0
数据加载中……

WEB页面导出为Word文档后分页&横向打印的方法

项目中用到了横向打印,今天重新更新了这个脚本.

<html>
    
<HEAD>
        
<title>WEB页面导出为Word文档后分页&横向打印的方法 </title>
    
</HEAD>
    
<SCRIPT LANGUAGE="javascript">
                
/**//*
                 * 
                 * @param {Object} cont  要导出的html元素内容的id,注意不要加双引号
                 * @param {Object} key   分页关键字
                 
*/

                
function AllAreaWord(cont,key)
                
{
                    
var oWD = new ActiveXObject("Word.Application");
                    
//默认为页面视图
                    var oDC = oWD.Documents.Add(""00);

                    
//横向打印设置部分
                    oDC.PageSetup.LineNumbering.Active = false;
                    oDC.PageSetup.Orientation. wdOrientLandscape 
=  1//设置为横向打印
                    oDC.PageSetup.TopMargin =  oDC.Application.CentimetersToPoints(3.17);
                    oDC.PageSetup.BottomMargin 
=  oDC.Application.CentimetersToPoints(3.17);
                    oDC.PageSetup.LeftMargin 
= oDC.Application.CentimetersToPoints(2.54);
                    oDC.PageSetup.RightMargin 
= oDC.Application.CentimetersToPoints(2.54);
                    oDC.PageSetup.Gutter 
= oDC.Application.CentimetersToPoints(0);
                    oDC.PageSetup.HeaderDistance 
= oDC.Application.CentimetersToPoints(1.5);
                    oDC.PageSetup.FooterDistance 
= oDC.Application.CentimetersToPoints(1.75);
                    oDC.PageSetup.PageWidth 
= oDC.Application.CentimetersToPoints(29.7);
                    oDC.PageSetup.PageHeight 
= oDC.Application.CentimetersToPoints(21);
                    oDC.PageSetup.FirstPageTray 
=  0;
                    oDC.PageSetup.OtherPagesTray 
= 0;
                    oDC.PageSetup.SectionStart 
=  2;
                    oDC.PageSetup.OddAndEvenPagesHeaderFooter 
= false;
                    oDC.PageSetup.DifferentFirstPageHeaderFooter 
= false;
                    oDC.PageSetup.VerticalAlignment 
= 0;
                    oDC.PageSetup.SuppressEndnotes 
= false;
                    oDC.PageSetup.MirrorMargins 
= false;
                    oDC.PageSetup.TwoPagesOnOne 
= false;
                    oDC.PageSetup.BookFoldPrinting 
= false;
                    oDC.PageSetup.BookFoldRevPrinting 
= false;
                    oDC.PageSetup.BookFoldPrintingSheets 
= 1
                    oDC.PageSetup.GutterPos 
= 0;
                    oDC.PageSetup.LayoutMode 
= 2;

                    
var oRange = oDC.Range(01);
                    
//var oRange1 = oDC.Range(0,2);
                    var sel = document.body.createTextRange();
                    
//参数为html元素id 
                    sel.moveToElementText(cont);
                    sel.select();
                    sel.execCommand(
"Copy");
                    oRange.Paste();
                    oWD.Application.Visible 
= true;
                    
//得到打开后word的selection对象
                    var selection = oWD.Selection;
                    
//设置字体大小
                    selection.Font.Size = 10;
                    
//ctrl+A 全选操作
                    selection.WholeStory();
                    
//清除格式
                    selection.Find.ClearFormatting();
                    
//指定查找关键字
                    selection.Find.Text = key;
                    
//^m为手动分页符标记
                    //向下查找
                    selection.Find.Forward = true;
                    selection.Find.Wrap 
= 1;
                    
//不区分大小写
                    selection.Find.MatchCase = false;
                    
//不匹配整个单词
                    selection.Find.MatchWholeWord = false;
                    
//如果找到指定字符串返回真,否则返回false
                    while (selection.Find.Execute()) 
                    
{
                        
//插入分页符,分页符常量为7,具体可查word api
                        selection.InsertBreak(7);
                    }

                    
                    
//保存word文档为test.doc
                    oDC.SaveAs("test.doc");
                }

    
</SCRIPT>
    
<body>
        
<BR>
        
<div id="test">
            aaa
            ^
            bbb
            ^
            ccc
        
</div>
        
<input type="button" onclick="javascript:AllAreaWord(test,'^');" value="导出页面指定区域内容到Word"/>
    
</body>
</html>

执行此脚本一定要打开"对没有安全验证的Active 控件 " 为启用状态.(IE选项)

posted on 2008-08-20 11:34 々上善若水々 阅读(10228) 评论(14)  编辑  收藏

评论

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

赞!!!找了很久终于找到了!谢谢分享!!!!
2008-09-08 21:40 | kikinancy

# 发现问题!这样作打印预览确实是正确的,可是打印出来还是纵向的呀!   回复  更多评论   

请大侠赐教!
2008-09-17 12:26 | kikinancy

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

不会吧。这个在我项目中已经成功应用了。
2008-09-17 15:12 | 々上善若水々

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

我没有写“oDC.SaveAs("test.doc");”这一步,打印出来确实是纵向,楼主可以试一下。难道非要保存一下?还有一个问题,我这里发现有个别机器,作这样的导出word时,导出到word里的表格不按照程序预先设定好的表格的行高列宽,不知道是不是ie里面有什么设置。不知道楼主碰到过这种问题没有??谢谢赐教!!
2008-12-30 15:49 | kikinancy

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

@kikinancy
这个完全是用VBA做的,需要看你的浏览器对VBA的支持了,还有就是本机必须装好word.
2008-12-31 08:34 | 々上善若水々

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

谢谢楼主的及时回复!能不能详细说一下ie里关于vba的设置在哪里啊?或者是升级一下ie应该能解决?多谢多谢!
2008-12-31 17:29 | kikinancy

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

我的是 IE6 你的是什么版本啊。
2008-12-31 17:57 | 々上善若水々

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

也是ie6啊,我再重装一遍ie试试
2009-01-04 11:23 | kikinancy

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

找了很久终于找到了!太感谢了!!!!
2009-07-17 11:56 | dragonwu

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

能不能不要设置分页符,根据内容的多少自动分页的啊?
2009-11-06 13:39 | 苏打饼干

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

感觉一点按钮,就把文档打开,太不友好了。
能不能做成只下载呢?
2009-11-06 15:25 | 苏打饼干

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

@苏打饼干
可以.查询vbs函数.
2009-11-06 15:51 | 々上善若水々

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

@々上善若水々
从没做过这种,看着都有点困难。。。
还是想别的办法吧。。
2009-11-06 16:04 | 苏打饼干

# re: WEB页面导出为Word文档后分页&横向打印的方法   回复  更多评论   

在本地测试可以打印,为什么发布到服务器上就不可以了?
2013-08-17 10:54 | 尘封的心

只有注册用户登录后才能发表评论。


网站导航: