[BinusNet] Cara Ngeprint Listview dengan Checkbox di VB 6

[heru sukoco]

Dear All,

Selamat Pagi,
Saya ada kendala dengan coding di VB 6 untuk membuat report ke
CrystalReport (CR) dengan parameternya melalui checkboxes yang ada di
Listview.

Setiap record yg saya 'Checked' di ListView (yang di 'Checked' lebih
dari 1 record). Kenapa hasil di CR nya hanya 1 record saja yang tampil ?



Coding yg saya buat sbb:



        Private Sub cmdPrev_Click()
With cr
 .DataFiles(0) = App.Path & "\NPL.mdb"
 .ReportFileName = App.Path & "\Reports\LapMedical_detail.rpt"
 
For i = lv.ListItems.Count To 1 Step -1
  If lv.ListItems(i).Checked Then
   .SelectionFormula = "{ado.NIK}='" & lv.ListItems.Item(i) & "'"
  End If
 Next i

.WindowState = crptMaximized
.Destination = crptToWindow
.Action = 1
End With
End Sub



Mohon maaf apabila pertanyaan saya malah bikin tambah bingung.

Atas bantuannya saya ucapkan terima kasih.


      

[Non-text portions of this message have been removed]