Affichage des imprimante dans une ListView

Bonjour,

J'aimerai pouvoir afficher toutes les imprimantes installées sur le pc dans ma ListView.

Tout d'abord, est-ce possible, et si oui comment ?

Merci d'avance

Salut,
 Si tu veux sélectionner tes imprimantes pour lancer l'impression dessus, utilise plutôt le Commansd Dialog, très peu de programmation, et il fait tout.

Starec

Salut,

Non ce n'est pas pour lancer des impressions, mais il me faut ça pour que je puisse faire une sélection des imprimantes.

T'as pas une idée ?

Merci d'avances

Vois si tu peux adapter ce code à tes besoins

Option Explicit
Private Declare Function GetProfileStringA Lib "Kernel32" _
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal plReturnedString As String, ByVal nSize As Long) As Long

Sub Imprimante()
Dim LongueurResultat As Integer
Dim ChaineLPT As String * 255
Dim Resultat As String
Dim virgule1 As String
Dim Virgule2 As String
Dim Imprimante As String
Dim Port As String
Dim msg As String
On Error Resume Next
Call GetProfileStringA("Windows", "Device", "", ChaineLPT, 254)
Resultat = Application.Trim(ChaineLPT)
LongueurResultat = Len(Resultat)
virgule1 = InStr(1, Resultat, ",", 1)
Virgule2 = InStr(virgule1 + 1, Resultat, ",", 1)
Imprimante = Left(Resultat, virgule1 - 1)
Port = Right(Resultat, LongueurResultat - Virgule2)
msg = "Imprim. :" & Chr(9) & Imprimante & Chr(13)
msg = msg & "Port :" & Chr(9) & Port
MsgBox msg
End Sub

jpleroisse