Aprender a usar Crystal Report

Crear un reporte es muy fácil con Cystal Reports.
1.- Primero seleccionas la base de datos y tablas para el reporte.
2.- El reporte consta de 5 partes:
a) Encabezado del Reporte(Report Header)
b) Encabezado de página (Page Header)
c) Detalles aquí van los campos de la consulta de la base de datos. (Details)
d) Aquí van los totales o resultados(Report Footer)
e) Pie de página (Page Footer)
3.- Luego insertas los campos a la hoja del reporte, en la zona de detalles.
En referencias de VB agregas
- Crystal Report Viewer
- Crystal Report Export
- Crystal Report 8.5 Activex Designer
- Crystal Report 8.5 Standard Wizard Library
En componentes agregas
- Crystal Report Viewer Control
Ahora usarlo con VB6 usar el siguiente código:
Option Explicit
Public crApp As New CRAXDRT.Application
Public crReport As New CRAXDRT.Report
Public numero As Byte
Public mflgContinuar As Boolean
Sub imprimir_factura(frm As Form, tipo As Byte)
Dim ruta As String
On Error GoTo ErrHandler
'Abrir el reporte
Screen.MousePointer = vbHourglass
mflgContinuar = True
'Set crReport = crApp.OpenReport(App.Path & "\Ejemplo.rpt", 1)
ruta = "C:\report1.rpt"
Set crReport = crApp.OpenReport(ruta, 1)
frm.CRViewer.ReportSource = crReport
frm.CRViewer.DisplayGroupTree = False
'Impresion x Crystal Report
Screen.MousePointer = vbDefault
crReport.PrintOut False, 1, False, 1, 1
Exit Sub
ErrHandler:
If Err.Number = -2147206461 Then
MsgBox "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", vbCritical + vbOKOnly
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If
mflgContinuar = False
Screen.MousePointer = vbDefault
End Sub