分享
 
 
 

js控制excel打印完美解决方案

王朝html/css/js·作者佚名  2008-05-20
窄屏简体版  字體: |||超大  

做web开发大家都遇到过打印的问题,对于复杂的表格打印着实令人头痛,这片文章介绍一下使用excel打印的解决方法。

首先,如果客户端调用excel必须降低ie安全级别,这样一些非法的控件,如3721什么的都自动安装了,所以我这样解决:保持原来的ie设置,把你的站点添加到信任站点,然后更改安全站点的安全级别,这样就给你的站点设置了一个安全通道,而且阻止了3721等的非法入侵,当然前提是你要让你的客户下载一个注册表并安装,我是自己做,自己用,所以我得用户是我说什么都跟着我做,你们就需要说服客户了:)。

好,那么下一步就是如何实现打印了,这里我有非常夺得报表,而且一些非常复杂,如学生成绩单,需要按照学年、学期计算学分绩点,打印照片,学位授予情况,学籍处理情况,四六级成绩,实习,辅修成绩,实践等,那么我如何把这些信息完整的打印到客户端就是非常麻烦的了,所有我用excel,先做一个模版,然后调用模版填充数据,问题又来了,这么多数据怎么组织呢,摸索好长时间,突然有个想法,把数据的提取单独写一个对象,这样我的程序就简洁多了,而且最好的是我任何地方都可以一样使用它。还说成绩单,数据非常大,多的要150条数据,所以我的数据源选择了表格,这样不必费力的生成什么xml了,显示的就是我要的数据。ok介绍一下Gettabledata.js:它就是我要的数据对象了,主要功能是从table中提取数据(GetTableData),并提供一个输出数据的方法(getfielddata),这个基本功能可以满足我多数的需求。这个我自己写的一个简介,怕以后我忘了的:),大家看看有什么不清楚的我补充一下。

//Obj参数指定数据的来源(限定Table),默认第一行为字段名称行

//MoveNext方法,参数是表的行向上或向下移动的位数,正数向下移动,负数向上.如.MoveNext(1),.MoveNext(-1)

//GetFieldData方法获得当前行的指定的列名的数,据如:.GetFieldData("考试成绩"):列名.GetFieldData(1):索引

//Sort_desc方法对指定的列按降序排列,如.Sort_desc("学年","学期")

//Sort_asc方法对指定的列按升序排列,如.Sort_asc("考试成绩:number"):":"后面的参数制定改列数据类型,此例为数字

//GetData方法返回字段值为特定值的数据数组,如果没有字段值则返回所有该字段记录.可以在外部进行其他处理,不建议直接处理数据:如.GetData()

//Delete方法删除当前记录,数组减少一行,如:.Delete

//updateField更新当前行的指定的索引数据(索引如果是数字,则是列的索引,为字符,是数据字段的名称)如:MyData.UpdateField("课程号",MyData.GetFieldData("原课程号"))

//MoveFirst记录移动到数据的第一条记录,注意数据从第二行开始,默认第一行为字段名称行

//MoveLast记录移动到数据的最后一条记录

//Distinct返回所选记录的不同记录的条件个数维数数组,同时升序排序

//初始化,Obj:table的名字,Leftlen:左面多余数据长度,Rightlen:右面多余数据长度,

//rows属性:数组行数,cols:列数

在示例代码中Print_bzcjd.js他是打印复杂excel的脚本,

var xlBook = xls.Workbooks.Open("c:\\xsxycjb.xls");

var xlsheet = xlBook.Worksheets(1)

这个可是使用网络模板,

var xlBook = xls.Workbooks.Open("http://you.com/\PrintTemplates\\xsxycjb.xls");

var xlsheet = xlBook.Worksheets(1)

这个力例子中基本把excel打印需要的技术都展示出来了,如图片,退出什么的。

这里要说明的是table的数据可以是隐藏的,不显示也可以取出,这样就可以增加很多数据进来,又不影响界面。

Excel.js:这个是清理excel的脚本,当结束excel进程的时候它还没有推出,清理一下,这个就没有vs好了:(。

这个是一个简单的示例,就是你给他一个表格名字就可以了,然后生成一个表格,就是这样:MakeExcel("TABLE1",true,"1.xls"),其他参数可以不要。

function MakeExcel(Obj,ProceVisible,SaveAsFilename,SortType,SortField){

var MyData= new GetTableData(Obj,0,0);

var myrows=MyData.rows;

var i,j;

try {

var xls

= new ActiveXObject ( "Excel.Application" );

}

catch(e) {

alert( "要打印该表,您必须安装Excel电子表格软件,同时浏览器须使用“ActiveX 控件”,您的浏览器须允许执行控件。 请点击【帮助】了解浏览器设置方法!");

return "";

}

if (typeof(ProceVisible)=="undefined"){

xls.visible = true;

}

else{

if (ProceVisible=="true"){

xls.visible = true;

}

else

{

xls.visible = false;

}

}

var xlBook = xls.Workbooks.Add;

var xlsheet = xlBook.Worksheets(1);

xls.Cells.Select;

xls.Selection.NumberFormatLocal = "@";

for (i=0;i<MyData.rows ;i++){

for (j=0;j<MyData.cols ;j++){

if (typeof(MyData.GetFieldData(j)) == "number"){

xlsheet.Cells(i+1,j+1).NumberFormatLocal = "0.00_ ";

}

xlsheet.Cells(i+1,j+1).Value= MyData.GetFieldData(j);

}

MyData.MoveNext();

}

if (SaveAsFilename=="" || typeof(SaveAsFilename)=="undefined"){

var fname = xls.Application.GetSaveAsFilename("*.xls", "Excel Spreadsheets (*.xls), *.xls");

if (fname!=""){

xlBook.SaveAs(fname);

}

}

else{

xlBook.SaveAs(SaveAsFilename);

}

xlBook.Close (savechanges=false);

//xls.visible = false;

xls.Quit();

xls=null;

//结束excel进程,退出完成

window.setInterval("Cleanup();",1);

}

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有