导出word分页与横向打印

转自：http://blog.csdn.net/mh942408056/article/details/13502051

[html] view plain copy print ?

<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("", 0, 0);
//横向打印设置部分
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(0, 1);
//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>

导出word分页与横向打印相关推荐

java 横向打印出来_java jacob调用打印，word，excel横向打印
java jacob调用打印,word,excel横向打印 public static boolean printOfficeFile(File f) { if (f != null &&am ...
wordexport.js导出word 分页符问题
在导出word之前插入以下js代码在需要增加分页符的div加上pages的class类名补充 page-break-before:always 在div之前插入分页符 page-break-aft ...
页面导成Word时实现横向打印
今天在作转成Word时,遇到需要横向打印的问题,经研究可以通过设置样式表实现首先在页面的head中加下面的一段代码 < head > < meta http-equiv =&qu ...
Vue导出word附表部分横向显示(承接上一篇Vue纯前端导出word)
Vue纯前端导出word直通车 1. 引入js import htmlDocx from "@/utils/html-docx"; 2. page-break-before:alw ...
WEB页面导出为Word文档后分页横向打印的方法
< html > < HEAD > < title >WEB页面导出为Word文档后分页&横向打印的方法 </ titl ...
JS导出Word默认页面视图、横向、分栏、设置固定页眉显示
JS导出Word默认页面视图.横向.分栏.设置固定页眉显示 JS导出Word默认页面视图.横向.分栏显示 JS导出Word默认页面视图.横向.分栏显示.固定页眉 styles设置为空:WPS无法默认 ...
导出word功能，用html代码在word中插入分页符
<span lang=EN-US style="font-size:10.5pt;mso-bidi-font-size:12.0pt;font-family:" mce_st ...
网页打印与导出word实现在A4纸上相同效果
在工作中遇到这样一个需求,客户要求: 1.实现在浏览器中打印和导出到word中,要求浏览器打印出来的效果和word中打印的效果基本一致.2.打印的内容要自动分页,第一页的顶部有文件头,最后一页的底部有 ...
excel导出word批注_打印或导出目录列表到MS Word＆Excel
excel导出word批注 Printing the content contained in Windows directories can sometime be complicated and ...

导出word分页与横向打印

导出word分页与横向打印相关推荐

最新文章

热门文章