为这个问题我快要急死了！请教各位高手，数据表格控件的内容怎么才能打印出来？

Question

我在这里问大家一个问题，看到后，一定快点要给我答案。
我在用vb与access相连做了一个软件。用的是ADO对象模型绑定的数据库。
我用了一个数据表格控件Mshflexgrid，我通过命令，把数据集绑定到Mshflexgrid上，在窗体运行时，数据表格控件上也能显示出来。但是我想用打印机把数据表格控件所显示的内容打印出来，（除了用报表）。可是怎么也实现不了，你们一定要帮帮我，行吗？ 

Answer 1

将数据导出到Excel，然后打印下列代码引用自小马哥'*********************************************************
'* 名称：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 2

请问如何改成DATAGRID该怎么做呢？