how to print the content of a datagrid?

Hello Everybody,
How can i print the contents of a datagrid?
I need to print all the columns - because not all the columns are shown on the screen.

Thank you all in advance,
ERAN

a new proud father

Hello all,
I tried to print the Adodc1.Recordset insted of the datagrid contents,
BUT!!!, If txtDataGrid1 string gets more then 9 records it cannot be printed on the printer:

Dim iRow As Integer
Dim iCol As Integer
Dim txtDataGrid1 As String
txtDataGrid1 = ""
For iRow = 0 To Me.Adodc1.Recordset.RecordCount - 1
Me.DataGrid1.Row = iRow
For iCol = 0 To 21
Me.DataGrid1.Col = iCol
txtDataGrid1 = txtDataGrid1 & Me.DataGrid1.Text & " "
Next iCol
txtDataGrid1 = txtDataGrid1 & vbCrLf
Next iRow

Printer.Orientation = 2
Printer.Print txtDataGrid1
Printer.EndDoc

if you know how to print the datagrid contents please tell me,
or if you know some activeX freeware...

Thank you all in advance,
ERAN