Visual Basic - Imprimir contenido datagrid

hola necesito su ayuda les cuento que tengo un código en el cual necesito imprimir los datos contenidos en un Datagrid y me surge el siguiente problema
El datagrid.name = dtgVentas
el Adodc1 al cual esta enlazado el Datagrid se llama adoGrilla
bueno el codigo es el siguiente

For c = 0 to dtgVentas.VisibleRows - 1
For i = 0 to dtgVentas.Columns(3).ColIndex ' esta asi xq solo quiero recuperar desde la Columna 0 a la 3 y funciona bien
'el problema esta acá
Printer.Print Space(10) & dtgVentas.Columns(i).CellText(dtgVentas.RowBookmark(c))
Next i
Next c

bueno resulta que si me imprime todos los datos contenidos en las filas visibles del Datagrid pero lo hace en forma vertical y no en horizontal como se presenta en el datagrid,
es decir asi
Col 0 ' Fila 1
Col 1 ' Fila 1
Col 2 'Fila 1
Col 3 'Fila 1
Col 0 ' Fila 2
Col 1 ' Fila 2.....

lo que quiero es que me imprima asi
Col 0 - Col 1 - Col 2 - Col 3 ... Fila 1
Col 0 - Col 1 - Col 2 - Col 3 ... Fila 2
ojala me entiendan, y espero su ayuda urgente, pero en realidad cuando uds. puedan nomas saludos. desde Formosa, Argentina

hola mira despues de estar tres horas logre solucionarlo, tenia un problema parecido
mi solucion fue esta:

'declaro
Dim Col1, Col2, Col3, Col4, Col5 As Column
Dim i As Integer

'armo los titulos
Set Col1 = DBGrid1.Columns(0)
Set Col2 = DBGrid1.Columns(1)
Set Col3 = DBGrid1.Columns(2)
Set Col4 = DBGrid1.Columns(3)
Set Col5 = DBGrid1.Columns(4)
Printer.Print Col5.Caption, Col1.Caption, Col2.Caption, Col3.Caption, Col4.Caption

' cargo los datos del datagrid, es un datagrid pero con nombre DBGrid1
For i = 0 To DBGrid1.VisibleRows - 2
Col1.Text = DBGrid1.Columns(0).CellText(DBGrid1.RowBookmark(i))
Col2.Text = DBGrid1.Columns(1).CellText(DBGrid1.RowBookmark(i))
Col3.Text = DBGrid1.Columns(2).CellText(DBGrid1.RowBookmark(i))
Col4.Text = DBGrid1.Columns(3).CellText(DBGrid1.RowBookmark(i))
Col5.Text = DBGrid1.Columns(4).CellText(DBGrid1.RowBookmark(i))
Printer.Print Col5.Text, Col1.Text, Col2.Text, Col3.Text, Col4.Text

Next

Printer.EndDoc

podes ponerlo todo en un boton imprimir y listo, solucionado