Private Sub cmdImprimirGuiasRolActual_Click()

    CrystalReport1.ReportFileName = frmMain.Ap_Hist & "Rol Guias Actual.rpt"
    CrystalReport1.DiscardSavedData = True
    CrystalReport1.PrintReport

End Sub
