Private Sub cmdImprimirGuiasRolDia_Click()

    CrystalReport1.ReportFileName = frmMain.Ap_Hist & "Rol Guias Inicial.rpt"
    CrystalReport1.DiscardSavedData = True
    
    CrystalReport1.PrintReport
    
End Sub
