今天正好用到labview中excel打印预览，这里共享vi源码出来给大家！

cpubbs

今天正好用到excel打印预览，这里共享出来给大家！用到的原理如下，完全按这个做出来的，大家可以直接当成子VI使用，指定路径即可，很方便！里面有注意事项，希望对有需要的朋友有用，顺祝大家新年快乐，本贴脚下附有程序源码：

一)   使用动态创建的方法
首先创建   Excel   对象，使用ComObj:
        var   ExcelApp:   Variant;
        ExcelApp   :=   CreateOleObject(   'Excel.Application '   );
  1)   显示当前窗口：
        ExcelApp.Visible   :=   True;
  2)   更改   Excel   标题栏：
        ExcelApp.Caption   :=   '应用程序调用   Microsoft   Excel ';
  3)   添加新工作簿：
        ExcelApp.WorkBooks.Add;
  4)   打开已存在的工作簿：
        ExcelApp.WorkBooks.Open(   'C:\Excel\Demo.xls '   );
  5)   设置第2个工作表为活动工作表：
        ExcelApp.WorkSheets[2].Activate;     或   
        ExcelApp.WorksSheets[   'Sheet2 '   ].Activate;
  6)   给单元格赋值：
        ExcelApp.Cells[1,4].Value   :=   '第一行第四列 ';
  7)   设置指定列的宽度（单位：字符个数），以第一列为例：
        ExcelApp.ActiveSheet.Columns[1].ColumnsWidth   :=   5;
  8)   设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
        ExcelApp.ActiveSheet.Rows[2].RowHeight   :=   1/0.035;   //   1厘米
  9)   在第8行之前插入分页符：
        ExcelApp.WorkSheets[1].Rows[8].PageBreak   :=   1;
  10)   在第8列之前删除分页符：
        ExcelApp.ActiveSheet.Columns[4].PageBreak   :=   0;
  11)   指定边框线宽度：
        ExcelApp.ActiveSheet.Range[   'B34 '   ].Borders[2].Weight   :=   3;
        1-左         2-右       3-顶         4-底       5-斜(   \   )           6-斜(   /   )
  12)   清除第一行第四列单元格公式：
        ExcelApp.ActiveSheet.Cells[1,4].ClearContents;
  13)   设置第一行字体属性：
        ExcelApp.ActiveSheet.Rows[1].Font.Name   :=   '隶书 ';
        ExcelApp.ActiveSheet.Rows[1].Font.Color     :=   clBlue;
        ExcelApp.ActiveSheet.Rows[1].Font.Bold       :=   True;
        ExcelApp.ActiveSheet.Rows[1].Font.UnderLine   :=   True;
  14)   进行页面设置：
    a.页眉：
        ExcelApp.ActiveSheet.PageSetup.CenterHeader   :=   '报表演示 ';
    b.页脚：
        ExcelApp.ActiveSheet.PageSetup.CenterFooter   :=   '第&页 ';
    c.页眉到顶端边距2cm：
        ExcelApp.ActiveSheet.PageSetup.HeaderMargin   :=   2/0.035;
    d.页脚到底端边距3cm：
        ExcelApp.ActiveSheet.PageSetup.HeaderMargin   :=   3/0.035;
    e.顶边距2cm：
        ExcelApp.ActiveSheet.PageSetup.TopMargin   :=   2/0.035;
    f.底边距2cm：
        ExcelApp.ActiveSheet.PageSetup.BottomMargin   :=   2/0.035;
    g.左边距2cm：
        ExcelApp.ActiveSheet.PageSetup.LeftMargin   :=   2/0.035;
    h.右边距2cm：
        ExcelApp.ActiveSheet.PageSetup.RightMargin   :=   2/0.035;
    i.页面水平居中：
        ExcelApp.ActiveSheet.PageSetup.CenterHorizontally   :=   2/0.035;
    j.页面垂直居中：
        ExcelApp.ActiveSheet.PageSetup.CenterVertically   :=   2/0.035;
    k.打印单元格网线：
        ExcelApp.ActiveSheet.PageSetup.PrintGridLines   :=   True;
  15)   拷贝操作：
    a.拷贝整个工作表：
        ExcelApp.ActiveSheet.Used.Range.Copy;
    b.拷贝指定区域：
        ExcelApp.ActiveSheet.Range[   'A1:E2 '   ].Copy;
    c.从A1位置开始粘贴：
        ExcelApp.ActiveSheet.Range.[   'A1 '   ].PasteSpecial;
    d.从文件尾部开始粘贴：
        ExcelApp.ActiveSheet.Range.PasteSpecial;
  16)   插入一行或一列：
    a.   ExcelApp.ActiveSheet.Rows[2].Insert;
    b.   ExcelApp.ActiveSheet.Columns[1].Insert;
  17)   删除一行或一列：
    a.   ExcelApp.ActiveSheet.Rows[2].Delete;
    b.   ExcelApp.ActiveSheet.Columns[1].Delete;
  18)   打印预览工作表：
        ExcelApp.ActiveSheet.PrintPreview;
  19)   打印输出工作表：
        ExcelApp.ActiveSheet.PrintOut;
  20)   工作表保存：
        if   not   ExcelApp.ActiveWorkBook.Saved   then
        ExcelApp.ActiveSheet.PrintPreview;
  21)   工作表另存为：
        ExcelApp.SaveAs(   'C:\Excel\Demo1.xls '   );
  22)   放弃存盘：
        ExcelApp.ActiveWorkBook.Saved   :=   True;
  23)   关闭工作簿：
        ExcelApp.WorkBooks.Close;
  24)   退出   Excel：
        ExcelApp.Quit;

cpubbs

上面的关于EXCEL动态创建方法的文档说明来源于：

http://topic.csdn.net/u/20070611 ... 8-df39cb15e427.html

cpubbs

这几天有二新采集卡正在写文档，弄好了等发布以后抽空做个功能较好的完整程序上来：包括一些信号分析，文件数据存储回放，信号采集，打印之类的！同时也希望大家多多共享自己的好资料，谢谢！与人方便，自己方便，大家都共享出来了，大家都能相互补充和获得更多的资源！

cpubbs

里面还有很多功能没有去做，大家可以继续完善，同样完成了也希望大家共享出来给大家，谢谢！

tx

顶一个，谢谢分享。

ricken

不知赖兄有没有试过,以前我在VB中调用EXCEL的时候会出现打开或创建EXCEL后不能正常关闭EXCEL调用.不知在LV中会不会出现这种情况.
也就是第一次调用EXCEL没有问题,不退出程序再进行第二次调用时就会出现错误,而且EXCEL有2000版和2003版,及2007版的差别.

cpubbs

只要用户关了预览的就可以了，我是昨晚试过，但只试了OFFICE的2003的！兄弟可以试试！

romeo2xiao

猛顶一下老大

wdyjz

辛苦了，支持一下。

nisunwu

猛顶一下老大

fjczd

非常感谢分享

fjczd

不知道用report generation 行不行，我觉得这个是ni自己的，功能应该更强大一些吧

Obama

好。正好要。

顶一个，学习中。。。

anjony

太好了，可以学习下