SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Boris en Martes 27 de Agosto de 2002, 16:28

Título: Re: Crystal Reports - Ayuda !!!!!
Publicado por: Boris en Martes 27 de Agosto de 2002, 16:28

estoy por primera vez tratando de trabajar con crystal reports pero me podrian decir por favor como llamo a estos reports desde Visual Basic? Gracias infinitas...

Título: Crystal Reports - Ayuda !!!!!
Publicado por: cpmario en Miércoles 28 de Agosto de 2002, 00:47

Coloca una referencia a Crystal Report, y añade el control a una forma y llámalo "CrystalReports", después agrega una rutina parecida a esta.

' Reporte de incapacidades
Sub PrintMainReport()
    Dim strFile As String
    On Error GoTo ErrorPrintReport
    strFile = gstrAppPath & "incapacidades.rpt"
    'open and fill report
    With CrystalReports
        .ReportFileName = strFile
        .ReportTitle = strFile
        .DataFiles(0) = gstrDBFilename
        .SelectionFormula = "ISNULL({Fichas.IMSS}) OR {Fichas.IMSS}=''"
        '.SQLQuery = "SELECT * FROM " + "VIEW" + strSelected
        .PrinterCopies = 1
        .PrinterCollation = crptDefault
        .WindowControls = True
        .WindowBorderStyle = crptSizable
        .WindowControlBox = True
        .WindowState = crptMaximized
        .WindowTitle = .ReportFileName
        .Destination = crptToWindow
        .PrintReport
    End With
Exit Sub
ErrorPrintReport:
    GenErrorHandler "frmMain/PrintMainReport()", Err.Number, Err.Description
End Sub