17/05/2004, 08:19
|
| | | Fecha de Ingreso: marzo-2004
Mensajes: 14
Antigüedad: 20 años, 11 meses Puntos: 0 | |
| Este es el codigo q utilizo:
Private Sub btnImprimir
NombreDB = "Password=XXXX;User ID=WWWW;Initial Catalog=BD;Data Source=QQQQ"
CryRpt.Connect = NombreDB
Reporte(CryRpt, "C:\aaaa\Reporte.rpt", Crystal.DestinationConstants.crptToWindow, NombreDB, "{Tabla.Campo1} = " & txtCampo1.Text & " And {Tabla.Campo2} = '" & Campo2.Text & "' and {Tabla.Campo3} = '" & txtCampo3.Text & "'")
End Sub
Public Sub Reporte(ByVal CryRptObj As AxCrystal.AxCrystalReport, ByVal RptFile As String,ByVal RptDestination As Crystal.DestinationConstants, ByVal NombreDB As String, Optional ByVal Formula As String = "")
CryRptObj.ReportFileName = RptFile
If Trim(Formula) <> "" Then
CryRptObj.SelectionFormula = Formula
End If
CryRptObj.Destination = RptDestination
CryRptObj.Action = 1
CryRptObj.Reset()
CryRptObj.Connect = NombreDB
end sub |