Visual Basic

Public Class clsXL
Dim xl as Excel.Application

Private Sub Class_Initialize()
On Error Resume Next
  Set xl = CreateObject("Excel.Application")
  xl.DisplayAlerts = False
End Sub

Private Sub Class_Terminate()
'  If IsLaunched Then xl.Application.Quit
  Set xl = Nothing
End Sub

Public Function Export(rs As Recordset) as Boolean
dim ws as Worksheet
dim c as integer 'column
dim i as integer 'row counter
  If Not xl Is Nothing Then
    xl.Workbooks.Add
    Set ws = xl.ActiveSheet

'Set the column headers
'....
      'Now loop through the rows & columns of the recordset to add the values
    i = 2
    do while not rs.eof
      for c = rs.fields.count
         w.Cells(i, c) = .Fields(c).Value & vbNullString
         i = i + 1
         rs.movenext
      next
    loop

'Format work sheet further

'now print preview the sheet
    xl.DisplayAlerts = False
    xl.Visible = True
    xl.ActiveWorkbook.Worksheets.PrintOut , , , True
    xl.Visible = False
    xl.Application.Quit
  end if

End Function