***** Buat project di vb dengan 2
Dtpicker ,1 Textbox dan 1 command cetak
***** misalnya 2
Dtpicker untuk from Date & To Date dan 1 textbox untuk kode
Private Sub cmdcetak_Click()
Dim tgl11 As String
Dim tgl22 As String
tgl11 = Format(DTPicker1.Value,
"yyyy,mm,dd")
tgl22 = Format(DTPicker2.Value,
"yyyy,mm,dd")
CR1.ReportFileName="C:\Lestari
Mitra\Report\Report.rpt"
CR1.ParameterFields(0) =
"tgl1;date(" & tgl11 & ");true"
CR1.ParameterFields(1) =
"tgl2;date(" & tgl22 & ");true"
CR1.ParameterFields(2) = "Kode;"
& txtkode.text & ";true"
CR1.Destination = crptToWindow
CR1.RetrieveDataFiles
CR1.WindowState = crptMaximized
CR1.Action = 1
End Sub
Buat parameter tanggal misal tgl1,tgl2
dan Kode di Insert Field,
Object Parameter Field, Klik kanan New, Pada Name : Tgl1, Value
Type=Date dan buat juga Parameter Tgl2 caranya sama dengan buat
parameter Tgl1 dan untuk parameter kode gunakan Value Type String.
Keluarkan Dahulu Field Tanggal dan Kode kemudian
masukkan Formula di Report , Edit
Selection Formula ,, Record dan pada
list di bawahnya kasih formula : {Tabel1.Tanggal} in {?Tgl1} to
{?Tgl2} and {Tabel1.Kodep} = {?Kode}
ini saya ada cetak report dengan 3 Filter berdasarkan from date, to date
dan kode.
semoga membantu,,,
salam
erwin
___________________________________________________________________________
Dapatkan nama yang Anda sukai!
Sekarang Anda dapat memiliki email di @ymail.com dan @rocketmail.com.
http://mail.promotions.yahoo.com/newdomains/id/
