Excel宏关于打印的问题-.pdf
做 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:/ 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;iMyData.rows;i+)for(j=0;jMyData.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);分页:
