转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
js控制excel打印完美解决方案         ★★★★

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

作者:闵涛 文章来源:闵涛的学习笔记 点击数:590 更新时间:2009/4/23 11:21:24

  做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);
    
  }


没有相关教程
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台