- Katılım
- 2 Mart 2005
- Mesajlar
- 2,960
- Excel Vers. ve Dili
-
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
ListBox1.Selected(i) ve Sheets(ListBox1.List(col.Item(i))).PrintOut un listwievdeki karşılıkları nedir?
ListBox1.ListCount ============ ListView1.ListItems.Count
ListBox1.Selected(i) ============ ListView1.??????(i)
Sheets(ListBox1.List(col.Item(i))).PrintOut ================ Sheets(ListView1.??????(col.Item(i))).PrintOut
Kod:
[/FONT]
[LEFT][FONT=Courier New]'######################################################################################################////
Private Sub CommandButton1_Click() '##'
Dim col As New Collection '##'
'*\ Aktif yazıcıyı değişkene al '##'
'Dim DefaultPrint As String: DefaultPrint = Application.ActivePrinter: MsgBox DefaultPrint '##'
With ListBox1 '##'
'*\ Listboxta Seçili olanları koleksiyona al ve sayısını tesbit et... '##'
For i = .ListCount - 1 To 0 Step -1 '##'
If .Selected(i) 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 '##'
Sheets(ListBox1.List(col.Item(i))).PrintOut _
Copies:=TextBox1.Value, ActivePrinter:=ComboBox1.Value '##'
Next i '##'
End If '##'
End If '##'
End With 'Listbox1 '##'
Set col = Nothing '##'
Unload Me '##'
End Sub '##'
'######################################################################################################////[/FONT][/LEFT]
[FONT=Courier New]
ListBox1.ListCount ============ ListView1.ListItems.Count
ListBox1.Selected(i) ============ ListView1.??????(i)
Sheets(ListBox1.List(col.Item(i))).PrintOut ================ Sheets(ListView1.??????(col.Item(i))).PrintOut