窗体上有个mshflex空件；我想把空件里的数据写入到excel 中；并且打印出来！急啊；再线等！！！

Question

窗体上有个mshflex空件；我想把空件里的数据写入到excel 中；并且打印出来！急啊；再线等！！！

Answer 1

我在目录下建立了一个excel文件。app.path & "exl.xls"

Answer 2

*********************************************************  
'*  名称：OutDataToExcel  
'*  功能：将MsFlexGrid控件中显示的内容输出到Excel表格中进行打印  
'*********************************************************  
Public  Sub  OutDataToExcel(Flex  As  MSFlexGrid)        '导出至Excel  
       Dim  s  As  String  
       Dim  i  As  Integer  
       Dim  j  As  Integer  
       Dim  k  As  Integer  
       On  Error  GoTo  Ert  
       Me.MousePointer  =  11  
       Dim  Excelapp  As  Excel.Application  
       Set  Excelapp  =  New  Excel.Application  
       On  Error  Resume  Next  
       DoEvents  
       Excelapp.SheetsInNewWorkbook  =  1  
       Excelapp.Workbooks.Add  
       Excelapp.ActiveSheet.Cells(1,  3)  =  s  
       Excelapp.Range("C1").Select  
       Excelapp.Selection.Font.FontStyle  =  "Bold"  
       Excelapp.Selection.Font.Size  =  16  
       With  Flex  
               k  =  .Rows  
               For  i  =  0  To  k  -  1  
                       For  j  =  0  To  .Cols  -  1  
                             DoEvents  
                             Excelapp.ActiveSheet.Cells(3  +  i,  j  +  1)  =  "'"  &  .TextMatrix(i,  j)  
                       Next  j  
               Next  i  
       End  With  
       Me.MousePointer  =  0  
       Excelapp.Visible  =  True  
       Excelapp.Sheets.PrintPreview                
Ert:  
       If  Not  (Excelapp  Is  Nothing)  Then  
               Excelapp.Quit  
       End  If  
End  Sub  
---------------------------------------------------------------  

Answer 3

工程->引用->Microsoft Excel 9.0 Object Library (后面为版本号）Dim  exlApp As New  Excel.Application  
其他的语句上ＥＸＣＥＬ中录制宏就知道了！！

Answer 4

例子来了前提是你再excel里面先把表头做好假如你的xls文件名为new.xls ,放在程序的相对路径report文件夹下面On Error Resume Next
'把查询到的数据放到excel中打印
Dim PageNum As Integer
Dim Size As Integer
Dim File As String
Dim I As Integer
Dim R As Integer
Dim P As Integer
PageNum = 1 '打印的页数
Size = 17 '一页可以打印的行数
'得到打印的页数
While Not (PageNum * Size) - (Msf.Rows - 3) > 0
    PageNum = PageNum + 1
Wend'循环打印每一页
For P = 1 To PageNum
    Dim Exl As New Excel.Application
    Dim Book As Excel.Workbook
    Dim Sheet As Excel.Worksheet
    
    FileCopy App.path & "\report\new.xls", App.path & "\new.xls"
    File = App.path & "\new.xls"
    Set Book = Exl.Workbooks.Open(File)
    Set Sheet = Book.Worksheets(2)
    Book.Application.DisplayAlerts = False    '把数据写入sheet中
    With Sheet
        For R = 1 To Size
            For I = 1 To 12
                .Cells(R + 5, I) = Msf.TextMatrix((P - 1) * Size + 2 + R, I - 1)
            Next
        Next
        .PageSetup.Orientation = xlLandscape        .PrintOut
        
    End With
    Book.Save
    Book.Close
    Set Book = Nothing
    Exl.Quit
    Set Exl = Nothing
Next

Answer 5

用excel
能不能不让客户看到excel；直接打印机打印出来啊 
如果没有找到打印机的话怎么半呢