Visual Basic - Imprimir MSFlexGrid

Hola trato de imprimir este grid, pero no aparecen los datos.
O trato de imprimir la forma completa con;
frm.PrintForm
pero no me aparecen los datos que trae el grid.

Espero me puedan ayudar.
Gracias y saludos!!

puedes hacerlo sencillo:
Sub Imprimir()
Dim i As Integer
Dim ImpLinea As Integer
Dim Var As String
For i = 0 To MSHFlexGrid1.Rows - 1
Printer.Print MSHFlexGrid1.TextMatrix(i, 0) + " " + MSHFlexGrid1.TextMatrix(i, 1) + " " + MSHFlexGrid1.TextMatrix(i, 3)
ImpLinea = ImpLinea + 1
If ImpLinea = 30 Then
Printer.NewPage
ImpLinea = 0
End If
Next i
Printer.EndDoc
End Sub
o si quieres ver mas ejemplo completos aqui puedes encontrarlo:
http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&txtCriteria=print+msflexgrid&lngWId=1&B1=Quick+Search