|
DTfrom.Value = Format(Now, "DD/MM/YY")
DTto.Value = Format(Now, "DD/MM/YY")
CrystalReport1.ReportFileName = App.Path + "\Report1.rpt"
CrystalReport1.Connect = con
CrystalReport1.DiscardSavedData = True
CrystalReport1.WindowShowGroupTree = False
CrystalReport1.WindowShowPrintBtn = True
CrystalReport1.WindowShowPrintSetupBtn = True
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Destination = crptToWindow
CrystalReport1.Action = True
|
14 Oct, 2008 - 08:53 PM
| 
