Visual Basic - IMPRIMIR GRID TOI DESESPERADA

Me da infinitos problemas imprimir un Grid
ya he probado con un for e ir imprimiendo fila por fila y columna por columna, tambien lo he intentado metiendolo en una Frame y mandando a imprimir formulario y tan poco
nada me sale el Grid y el interior en negro

Por Favor os solicito ayuda Muchisimas gracias a TOD@s

PAra imprimir un flexgrid:

On Error GoTo seguir
Dim intTamanho As Integer
Dim X As Integer
Dim primera As Boolean
primera = False
'Para indicar el numero de filas quiero en una pagina
Grid2.rows = 45
Grid2.cols = 11'o las que tengas

For X = 0 To Grid1.rows - 1 Step 44
For j = X To X + 44
For i = 0 To Grid1.cols - 1
Grid1.Row = j
Grid1.Col = i
If primera = False Then
Grid2.Row = j
Else
Grid2.Row = j - 43
End If

Grid2.Col = i
Grid2.Text = Grid1.Text
Next i
Next j
seguir:
'Imprimir
Printer.Orientation = 2
intTamanho = Grid2.Width
Grid2.Width = Printer.Width
Printer.PaintPicture Grid2.Picture, 0, 0

Printer.EndDoc
Grid2.Width = intTamanho
primera = True
Grid2.Clear

Next X

Suerte!

MsgBox "Impresión finalizada..."