Visor de Crystal Reports 11 con Visual Basic 6

Hola a todos, bueno sin más, voy a publicar el codigo para hacer un visor de reportes de Crystal hecho en VB6, al final les doy el enlace de donde lo encontre.

Bueno, manos a la obra, los pasos para crear el Visor son:

1. Cree un vb project ( standard exe o ocx).
2. Vera un formulario vacio.
3. Vaya a Project > Components
4. Seleccione "Crystal Activex Report Viewer Library 11.0" y de click en OK, aparecera un nuevo icono en la barra de herramientas.
5. Luego vaya a Project > References.
6. Y seleccione "Crystal Report Activex Designer Runtime Library 11.0"
7. En el formulario vacio, arrastre un crystal report viewer desde la barra de herramientas. Y nombrelo "crsv1".
8. Luego escriba el siguiente codigo:
   


'***************************************************************************************
'* This project uses the following reference for the CRAXDRT object
'* Crystal Report Activex Designer Runtime Library 11.0
'***************************************************************************************

Private Sub Form_Load()

Dim Report As New CRAXDRT.Application
setViewerSize
crsv1.ReportSource = Report.OpenReport("D:\USUARIO\reporte.rpt")
crsv1.ViewReport

End Sub



Private Sub form_resize()
setViewerSize
End Sub

Private Sub setViewerSize()

crsv1.Width = Form1.Width - 100
crsv1.Height = Form1.Height - 400

End Sub


Eso es todo, el enlace vbforums.

Comentarios?