Πως μπορώ να πάρω μια λίστα με τους εγκατεστημένους εκτυπωτές;

[TGeorge]

 

Αν κάποιος γνωρίζει πως μπορώ να πάρω μια λίστα με τους εγκατεστημένους εκτυπωτές ώστε να τους περάσω σε ένα ComboBox για να τον επιλέγει ο χρήστης σε γλώσσα προγραμματισμού Visual Objects;
Ευχαριστώ εκ των προτέρων...

[Directx]

Για Visual Objects δεν έχω υπόψη μου, αν δουλεύεις όμως με Windows και αν τελικά δεν βρεις άκρη μέσο των Visual Object API, οπότε η χρήση του WinAPI καταστεί τελικά μονόδρομος, ίσως σου φανεί χρήσιμο αυτό.

 

Καλή συνέχεια!

[NikosKallithea]

O παρακάτω κώδικας προβλέπει ListView και οχι ComboBox άλλα νομίζω ειναι εύκολο να το αλλάξεις αν ασχοληθείς λίγο ή και ετσι να το αφήσεις πάλι οκ θα είσαι.

 

 

 

 

Private Sub Command5_Click()
apap = MsgBox("Προσοχή NA ΓΙΝΕΙ έλεγχος για εγκατεστημένους εκτυπωτές", vbOKCancel)
If apap <> 1 Then Exit Sub

ListView1.ListItems.Clear
ListView1.Checkboxes = True
If Printers.Count > 0 Then
  For Counter = 0 To Printers.Count - 1
  DoEvents
  ListView1.ListItems.Add = Printers(Counter).DeviceName
  Next
Else
  MsgBox "No Printers Installed!", vbCritical, "No Printer Available!"
End If

End Sub