Private Sub Command5_Click()
Dim FechaReporte As Date
Dim DiaReporte As String
Dim MesReporte As String
Dim AoReporte As String
Dim FechaReporteConvertida As String

FechaReporte es el valor que se va a imprimir en el ttulo del reporte
    FechaReporte = CDate(MaskEdBox4.Text)
    DiaReporte = Mid(MaskEdBox4.Text, 4, 2)
    MesReporte = Left(MaskEdBox4.Text, 2)
    AoReporte = Right(MaskEdBox4.Text, 2)
FechaReporteConvertida es la fecha para obtener los datos del reporte
    FechaReporteConvertida = DiaReporte & "/" & MesReporte & "/" & AoReporte
CrystalReport1.Reset
CrystalReport1.ReportFileName = frmMain.Ap_Hist & "Rreservas2.rpt"
CrystalReport1.DiscardSavedData = True
Formula_R = "{Reservaciones.Fecha} = #" & FechaReporteConvertida & "#"
CrystalReport1.ReportTitle = " del Da " & FechaReporte
CrystalReport1.ReplaceSelectionFormula Formula_R
CrystalReport1.PrintReport
Se cierra el marco donde se captura la fecha del reporte
Frame3.Visible = False
End Sub
