Imprimir en Crystal Reports 8.5

[oblacionx]

Hola tengo un formulario que contiene un boton que al ser presionado deberia de imprimir un reporte, el usuario tiene la opcion de ingresar dentro de un textbox una cadena, y este parametro sera pasado a la consulta, para ejecutar la impresion he desarrollado un stor procedure en MSSQL 2000, mi problema nace en que no tengo ni la menor idea de como conectar en reporte desarrollado con el crystal report 8.5 con el visual basic, algunos me dicen q tengo q agregar referencias y componentes, pero quisiera que me ayuden diciendo cuales son y que codigo necesito dentro del boton imprimir, se los agradece.

[MaxExtreme]

Spammer, no repitas topics. Si no te responden, edita el primero y explícate mejor.

[jrp01]

Referencias:
Crystal Report 8.5 ActiveX Desingner Desing and Runtime Library
Crystal Report engine 8 Object Library
Crystal Report 8.5 ActiveX Desingner Runtime Library

Declaras

Código:

Dim crSecs As CRAXDRT.Sections
Dim crSec As CRAXDRT.Section
Dim crRepObjs As CRAXDRT.ReportObjects
Dim crxreport As CRAXDRT.Report
Dim rs1 As New ADODB.Recordset
Dim crpDatabase As CRAXDRT.Database 
Dim crpTables As CRAXDRT.DatabaseTables 
Dim crpTable As CRAXDRT.DatabaseTable 
Dim sql as String

Y para llamarlo:

Código:

       sql = "tu Select"
        Set rs1 = cn.Execute(sql)
        Screen.MousePointer = vbHourglass
        Set crxreport = crxApplication.OpenReport(App.Path & "\mi_reporte.rpt")
        crxreport.DiscardSavedData
        Set crxDatabase = crxreport.Database
        Set crxDatabaseTables = crxDatabase.Tables
        crxreport.Database.SetDataSource rs1

Si usas el control CRViewer pones:

Código:

CRViewer1.ReportSource = crxreport
CRViewer1.ViewReport
ReportViewerFrm.WindowState = vbMaximized
CRViewer1.Zoom 100
Screen.MousePointer = vbDefault

[marcocho2005]

1ro: Tienes que agregar en tus componentes el Crystal Reports control

2do: una vez que hayas añadido este control y si lo llamas "crptreporte" utilizas el siguiente codigo fuente

crptreporte.reportfilename = "nombre de tu reporte grabado.rpt"
crptreporte.ReplaceSelectionFormula "la cadena completa inculida el textbox para el usuario para depurar los resultados"
crptreporte.Action = 1
y listo
no es muy dificil

[jrp01]

Pero eso es usando el OCX lo cual no es recomendable es mejor RDC te permite hacer mas cosas.

[oblacionx]

Disculpen mi ignorancia q es un RDC