- Katılım
- 2 Mart 2005
- Mesajlar
- 2,960
- Excel Vers. ve Dili
-
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Kod:
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