Aprender a usar Crystal Report

Quiero aprender a usar el crystal report 8.5 bis, alguien podría enviarme una guía de como crear un reporte, trabajo con visual basic 6, sql server para las bases de datos.
1

1 Respuesta

27.575 pts. Programacion:VB,VFP,VC++,C++,PB,RPG,Java,ASP,PHP,JSP,Pascal
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
Gracias, por responderme, aunque no entienda bien el código. Pero ya lo analizare. Agradecería me enviaras material que tu creas conveniente ya que estoy interesada en el tema.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas