Imprimir en Crystal Reports 8.5

[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