jaime g
16 de Octubre del 2003

Private Sub Command1_Click()
Dim ¡RESult2 As Integer
CrystalReport1.ReportFileName = App.Path & "informe2.rpt"
CrystalReport1.SelectionFormula = "{par0601.parcod}=0052"
CrystalReport1.Destination = 0
¡RESult = CrystalReport1.PrintReport
If ¡RESult <> 0 Then
MsgBox CrystalReport1.LastErrorString, , "archivo sin registro"
End If
Exit Sub
End Sub

NO FUNCIONA EL SELECTIONFORMULA me faltara declara algun componente o funcion antes ???????