Coba loop terhadap setiap item listbox. Kemudian cek nilai properti
selected di setiap item. Jika nilainya TRUE (ter-select) maka arahkan ke
proses print.
Private Sub Cetak_Click()
Dim lItem As Long
'loop setiap item dalam listbox
For lItem = 1 To DataBonIjo.ListCount
If DataBonIjo.Selected(lItem - 1) = True Then
BonIjoPrintList.Show
End If
Next lItem
End Sub
Wassalam,
Kid.
2012/6/8 Aliif Akbar <[email protected]>
> **
>
>
> Selamat siang,
>
> Dear rekan2 suhu,
> Saya mau tanya, bagaimana cara untuk print berulang pada userform dengan
> referensi yang di print itu dari listbox multi select,
> Terlampir file yang saya maksud.
> Ketika baris pada listbox di pilih, kemudian di klik button print makan
> akan muncul userform baru dan userform itu akan di cetak kemudian userform
> tsb akan hide kembali, tapi ketika pada listbox itu dipilih lebih dari
> satu, maka akan mencetak pada baris yang paling terakhir saja, pertanyaan
> saya, bagaimana jika pada listbox dipilih banyak maka akan muncul userform
> kemudian cetak, muncul lagi userform kemudian cetak, dst sesuai dengan
> baris yg di pilih,
> Mohon pencerahannya,
>
> Regards,
>
> Asror
>
> Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung
> Teruuusss...!
>
>
>
