combobox ve yazıcı seçimi

[bitmez13]

Private Sub ComboBox1_Change()
yazdırx.Caption = "Yazdırılacak Yazıcı " & ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
Dim PrinterList As String, oSystem As Object, oPrinter As Object
Dim i As Single
Set oSystem = GetObject("winmgmts:").instancesOf("Win32_Printer")
'Aktif Bilgisayardaki Yazıcı Listesini Combobox1 e alır
For Each oPrinter In oSystem
ComboBox1.AddItem oPrinter.Name
Next
Set oSystem = Nothing
End Sub

yukardaki kodlarla yazdırma öncesi pc deki aktif yazıcıları userform1 deki combobox1 de listeliyor ancak combobox1 boş durumda yandaki oka bastığımda yazıcılar listeleniyor ben istiyorumki comboboxda ilk durumda aktif olan yazıcının ismi görünür durumda olsun şayet degiştireceksem yandaki okla digerlerinden seçim yapabileyim

 

[muygun]

Merhaba;

Set oSystem = Nothing

satırından sonra;

If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0

Satırını yerleştirip deneyin.
İyi çalışmalar.

 

[bitmez13]

Teşekkürler