listwiev1 nesnesinde checked işlemi ile seçilmiş syafların yazdırılması?

[hsayar]

With ListView1
    Say = 0
    For i = 1 To .ListItems.Count
        If .ListItems(i).Checked Then
            Say = Say + 1
            col.Add i
        End If
    Next i
'*\ ... Eğer sayı 0 a eşitse prosodürden çık, ...                                                       '##'
        If Say = 0 Then                                                                                 '##'
            MsgBox "Seçili veri bulunamadı"                                                             '##'
        Else                                                                                            '##'
            Soru = ComboBox1.Value & " Yazıcısından " & Say & " adet çalışma sayfasından " & _
                   TextBox1.Value & " -er/-ar adet  Yazdırmak İstiyor musunuz?"                         '##'
            If MsgBox(Soru, vbYesNo) = vbYes Then                                                       '##'
'*\ ... Listbox1 de seçili sayfaları combobox1 deki yazıcıdan textbox1 deki kadar yazdır.               '##'
                For i = 1 To col.Count                                                                  '##'
'listbox için kullanılan ve çalışan kodlar
'                    Sheets(.List(col.Item(i))).PrintOut _
                    Copies:=TextBox1.Value, ActivePrinter:=ComboBox1.Value                              '##'
[COLOR=red][B]''listwiev için kullanılan ve çalışmayan kodlar
                    Sheets(.ListItems(col.Item(i))).PrintOut _
                    Copies:=TextBox1.Value,[/B][/COLOR] ActivePrinter:=ComboBox1.Value                              '##'
                Next i                                                                                  '##'
            End If                                                                                      '##'
        End If                                                                                          '##'
    End With    'Listbox1                                                                               '##'
Set col = Nothing                                                                                       '##'
Unload Me                                                                                               '##'
End Sub

kırmızı alana ne yazılmalı ki listwiev1 nesnesinde ceklenmiş sayfalar yazdırılsın.

 

[hsayar]

Güncel yardım edersenşz sevinirim.