Private Sub Command2_Click()
Dim hoy As String
FECHAhoy = Format(Now, "ddmmyyyy")
hoy = FECHAhoy
FECHADESDE = DTPicker1.Value
FECHAASTA = DTPicker2.Value
Dim ExportFileName As String
Dim CRApp As CRAXDRT.Application
Dim CRReport As CRAXDRT.Report
Set CRApp = CreateObject("CrystalRuntime.Application")
Set CRReport = CRApp.OpenReport("C:\Informe1.rpt")
ExportFileName = "C:\reports " & hoy & ".pdf"
CRReport.RecordSelectionFormula = ""'
CRReport.ExportOptions.FormatType = crEFTPortableDocFormat
CRReport.ExportOptions.DestinationType = 1
CRReport.ExportOptions.DiskFileName = ExportFileName
'CRReport.ExportOptions.ExcelTabHasColumnHeadings = True
CRReport.DisplayProgressDialog = False
CRReport.ExportOptions.PDFExportAllPages = True
CRReport.Export (False)
End Sub
en la tabla tendo el campo fecha_salida dd/mm/yyy
ando predido de verdad no se como filtrar esto en el report.
({fecha_salida})=('" & DTPicker1.Value &
si alguien me puede ayudar
