Visual Basic - IMPRIMIR UN DATAGRID URGENTE !!!

Al foro...

Alguien en este foro q tenga algun ejemplo o un codigo para imprimir el contenido de un datagrid ??? Es muy urgente q alguien me ayude... De antemano gracias a quien de respuesta a este mensaje.

Buenas, esto que dices no lo hice nunca pero si que exporte la informacion a un excel te dejo el codigo para que veas como lo hice, no es muy pulido y juego con el error ya que no se controlar el final del datagrid.

Private Sub Command1_Click()
On Error GoTo sale

Dim Fila As Integer
Dim obj As Object
Dim Libro As Object
Dim Hoja As Object
Fila = 1

colunnas = DataGrid1.Columns.Count
Set obj = CreateObject("Excel.application")
obj.Visible = False ' para que la hoja no sea visible
Set Libro = obj.workbooks.Open("c:\Libro1.xls")
Set Hoja = Libro.Sheets(1)
obj.Application.DisplayAlerts = False ' para evitar que me pregunte

With Hoja


For i = 1 To colunnas
.Cells(1, i) = DataGrid1.Columns(i - 1).Caption ' recorremos la cabecera
Next


Do While Not DataGrid1.Columns(1).Text = ""
DataGrid1.Row = Fila - 1
For i = 1 To colunnas ' recorremos las colunnas
.Cells(Fila + 1, i) = DataGrid1.Columns(i - 1).Text
Next
Fila = Fila + 1
Loop

sale: ' error 6148
.Cells.Select ' seleccionamos todas las celdas
.Cells.EntireColumn.AutoFit ' ajustamos las celdas
End With
Libro.SaveAs FileName:="C:\Libro1.xls" ' salvamos el archivo
obj.Application.Quit

Set Libro = Nothing
Set obj = Nothing
Set Hoja = Nothing

End Sub