CARA UNTUK MENCETAK DATA DALAM RANGE TANGGAL MENGGUNAKAN CRISTAL REPORT

Langkah langkah pertama adalah:

1. Siapkan 2 Dtpicker (tgl1 dan tgl2)
2. Siapkan Cristalreport (Rpt1)
3. Siapkan Command (command 1)
4. baiklah kamu harus punya database (acces)
5. Report hasil Cristal report

buat tampilan seperti gambar diatas

Isi syntak di command seperti ini

Private Sub Command1_Click()

rpt1.ReportFileName = App.Path & "\report1.rpt"

rpt1.DataFiles(0) = App.Path & "\database.mdb"

rpt1.ReplaceSelectionFormula "{keluar.tglkeluar}>=date(" & Year(tgl1) & "," & Month(tgl1) & "," & Day(tgl) & ") and {keluar.tglkeluar}<=date(" & Year(tgl2) & "," & Month(tgl2) & "," & Day(tgl2) & ")"

rpt1.Action = 0

End Sub

klik gambar dibawah ini bila ini mendownload contoh programnya

untuk kembali ke artikel muka klik gambar dibawah