Visual Basic - como imprimir un flexgrid con el crystal report

necesito que alguien me ayude, donde encuentro informacion sobre como imprimir un flexgrid mediante el crystal report o data report o si no es asi algun metodo o ejemplo para llevar a cabo la impresion de un flexgrid
de antemano le agradezco su colaboracion

Este es el código que utilizo yo para imprimir un flexgrid en un datacombo.
Primero creo un datareport (rptL) con:
ReportHeader - 2 labels para el titulo
PageHeader - 25 labels de titulo de cada columna
Detail - 25 textboxs para datos de cada columna
PageFooter - 1label donde escribo dia y hora del listado
Rebort Footer - 25 labels por si se ha de escribir el total de algún campo del listado.

No sé si se entiende mucho, pero puedes preguntarme qualquier duda.

Public Sub Imprimir()
Dim rptL As rptLlistar
Dim bytOK As Byte, bytCol As Byte, bytTextBoxs As Byte
Dim intLeft As Integer
Dim i As Long
Dim Bolea As StdDataFormat
Dim Euro As StdDataFormat
Dim obj As PAGESET.PrinterControl
' On Error GoTo errorhandler:

If (strTipus = "NI") Then 'No imprimir
Exit Sub
End If
Set Bolea = New StdDataFormat 'Escriure S - True o N - False
Bolea.Type = fmtBoolean
Bolea.TrueValue = "S"
Bolea.FalseValue = "N"
Set Euro = New StdDataFormat 'Escriure en format de Euro
Euro.Type = fmtCustom
Euro.Format = "###,##0.00"
Set rptL = New rptLlistar
bytTextBoxs = 25
rptL.Caption = Me.Caption
rptL.DataMember = strDataMember
rptL.Sections.Item(1).Controls("lblTitol").Caption = Me.Caption
rptL.Sections.Item(1).Controls("lblTitol2").Caption = Me.Tag
blnGuardat = False
Call GuardarEstructura
bytCol = NCol
If (bytCol > bytTextBoxs) Then
bytCol %3