Visual Basic - Como imprimo una grilla (msflexgrid)

HOLA TENGO UNA GRILLA (MSFLEXGRID) Y NESESITO IMPRIMIRLA Y NO SE COMO SE HACE. AYUDENME PORFA GRACIAS.

OCUPO DAO, VISULA 6 Y BD 2000

for i = 0 to Flex.Rows
For J = 0 to Flex.Cols
debug.print Flex.TextMatrix(i,j) & vbTab
Next
debug.Print vbnewline
next

for i = 0 to grilla.Rows
For J = 0 to grilla.Cols
debug.print grilla.TextMatrix(i,j) & vbTab
Next
debug.Print vbnewline
next

le pongo el codigo pero me dice "el subindice esta fuera del intervalo"
mi grilla tiene col 15 y row 2 y le pongo eso igual pero me dice el mismo error porfa.

Private Sub Command1_Click()
On Error Resume Next 'ESTE RENGLON SUPRIME TODO ERROR
For i = 0 To grilla.Rows - 1 'PERO OK
For j = 0 To grilla.Cols - 1
Debug.Print grilla.TextMatrix(i, j) & vbTab
Next
Debug.Print vbNewLine
Next

End Sub