Tester l'existence d'une imprimante en VB

Résolu
silvermoon -  
 silvermoon -
Bonjour,

Est il possible de vérifier qu'une imprimante est bien déclarée sur un poste utilisateur (en vb)?

Merci
Configuration: Windows XP
Firefox 1.5

2 réponses

  1. toto
     
    ça peut peut-être t'aider :
    Dim p As Printer
    Dim k%
      For k = 0 To Printers.Count - 1
        Set p = Printers(k)
        MsgBox p.DeviceName
      Next k
    0
  2. silvermoon
     
    Dim p As VB.Printer
    Dim imprimante as String
    Dim Lespion as Boolen

    For Each p In VB.Printers
    'MsgBox (p.DeviceName)
    If p.DeviceName= monimprimante Then
    Lespion = True
    Exit For
    End If
    Next
    0