Private Sub cmdListadoCupones_Click()
Dim NumeroFactura As Integer
Dim FormulaR As String

NumeroFactura = ComboFactura
El objeto Crystal Report toma el nombre del reporte DetalleFactura
    CrystalReport1.ReportFileName = frmMain.Ap_Hist & "DetalleFactura.rpt"
    Se cambia el nombre de la formula del reporte a el valor de la factura seleccionada en el Combobox
    CrystalReport1.DiscardSavedData = True
    FormulaR = "{Maestro Facturas.Numero} = " & NumeroFactura
    CrystalReport1.ReplaceSelectionFormula FormulaR
    CrystalReport1.PrintReport
End Sub
