Private Sub cmdAceptar_Click()
Dim FechaIniciada As Date
Si esta cargada el formulario frmIniciaDia, se imprime el reporte Rol Guas
Inicial, y se descarga los formularios para Iniciar el Da y el de Rol de Guas
If IsLoaded("frmIniciaDia") Then
    FechaIniciada = frmIniciaDia.SSDateCombo1.DateValue
    Unload frmIniciaDia
    Unload frmRolGuias
    CrystalReport1.ReportFileName = frmMain.Ap_Hist & "Rol Guias Inicial.rpt"
    CrystalReport1.DiscardSavedData = True
    CrystalReport1.ReportTitle = "Fecha Iniciada " & Format(FechaIniciada, "DD/MMM/YY")
    CrystalReport1.PrintReport
Else
Si no esta cargada el formulario para Iniciar Da, entonces solo se descarga
el formulario de Rol de Guas
    Unload frmRolGuias
End If
End Sub
