用excel打印报表

用代码设置excel单元格边框

            eSheet.Range("C" & sPoint).BorderAround(1, 2, Excel.XlColorIndex.xlColorIndexAutomatic, 1)
            eSheet.Range("C" & sPoint).Value = r("STNM")     '站名

其他：

    //*****   
    //变量定义   
    _Application   app;           
    Workbooks   books;   
    _Workbook   book;   
    Worksheets   sheets;   
    _Worksheet   sheet;   
    Range   range;   
    Range   iCell;   
    LPDISPATCH   lpDisp;           
    COleVariant   vResult;   
    COleVariant   
                  covTrue((short)TRUE),   
                  covFalse((short)FALSE),   
                  covOptional((long)DISP_E_PARAMNOTFOUND,   VT_ERROR);           
      
      
    //*****   
    //初始化COM的动态连接库   
    if(!AfxOleInit())       
    app.Quit(); 

保存：

End Sub

            eSheet.Range("A1:" & eColumn & "1").Merge() '合并
            eSheet.Range("A1:" & eColumn & "1").RowHeight = 25  '行高
            eSheet.Range("A1:" & eColumn & "1").Font.Name = "隶书"  '字体
            eSheet.Range("A1:" & eColumn & "1").Font.Size = 24  '字号
            eSheet.Range("A1:" & eColumn & "1").HorizontalAlignment = -4108 '水平居中
            eSheet.Range("A1:" & eColumn & "1").Value = Me.dgList.CaptionText   '文字
            eSheet.Range("A1:" & eColumn & "1").BorderAround(1, 2, Excel.XlColorIndex.xlColorIndexAutomatic, 1) '边框

彻底关掉excel进程：
Marshal.ReleaseComObject(m_comObject)所有对象
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet1)
xlSheet1=Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject (wb)
wb=Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject(Excl)
Excl = Nothing
GC.Collect()
GC.WaitForPendingFinalizers()

 
Sub A()
Dim xlApp As New Excel.Application  '创建一个excel应用程序对象
        Dim xlBooks As Excel.Workbooks '声明一个workbooks对象
        Dim xlbook As Excel.Workbook '声明一个xlbook对象
        Dim xlSheets As Excel.Sheets

　　　　xlApp.Quit()
End Sub

Sub B()
    A();
    GC.Collect()
End Sub

GC不会回收他所在的区，所以用另一个方法调用你的实际后回收