Eduardo, te envío el código que uso para imprimir DataGrid

OscarG
21 de Septiembre del 2003
Dim varbmk As Variant
On Error GoTo saleporerror 'No encontre comienzo ni final de registro de un datagrid, asi que termina por error
If grdDataGrid.Row <> -1 Then 'es decir que tenga algun dato que haya buscado por sql
grdDataGrid.Row = 0 ' me paro si o si en el primer registro
varbmk = grdDataGrid.Bookmark 'indico el comienzo de mi lectura (lee solo lo visible en pantalla)
sumarizar:
lasCuotas = lasCuotas + (grdDataGrid.Columns(6))
losPagos = losPagos + (grdDataGrid.Columns(7))
varbmk = varbmk + 1 ' sumo un registro
grdDataGrid.Bookmark = varbmk 'me voy a ese registro
GoTo sumarizar 'vuelvo ... cuando llegue a uno mas de lo que hay en el grid me da error y es ahi cuando sale.

saleporerror:
' aqui continuo con el programa. Yo hice un opcion de sumas, pero tambien se pueden imprimir las columnas