Mencetak Laporan di Visual Basic 6 antara dua tanggal dengan Crystal Report

untuk mencetak laporan di visual basic dengan menggunakan crystal report, pertama pada form dialog cetak terlebih dahulu tambahkan 2 buah object DTPicker

cetak antara 2 tanggal

jangan lupa tambahkan component crystal reportnya kemudian di command cetak isi dengan scrip di bawah ini

With crdp
.Reset
.ReportFileName = App.Path & “\..\laporan\laporan_Daftar_Pasien.rpt”
.WindowState = crptMaximized
‘.WindowParentHandle
.LogOnServer “PDSSQL”, “LITBANK003”, “dbspp”, “sa”, “sa”
.RetrieveDataFiles

.SelectionFormula = “{TblBarangMasuk.TglMasuk}>= cdate(‘” & tgl1.Value & “‘) AND TblBarangMasuk.TglMasuk}<=CDATE(‘” & tgl2.Value & “‘)”

.ReportTitle = “Report Data Pasien Antara ” & ” ” & Format$(TglAwal.Value, “long date”) & ” ” & “and” & ” ” & Format(TglAkhir.Value, “long date”)
.WindowState = crptMaximized
.Action = 1