[RESOLU] Détecter le types d'imprimantes connectée sur mon pc

[omega]

Bonsoir

J'aimerais savoir si on peut détecter les imprimantes connectées à mon ordinateur.
Merci

[Mesa]

viewtopic.php?t=19170&sid=1f223f998d93a ... d8dc2eaab5

[omega]

Désolé mais cela ne répond pas à mon attente, merci quand même d'avoir essayé.
Ce code permet de définir une imprimante par défaut (ce qui suppose que l'imprimante est connue)...

[Marc56]

Bonjour,

La ligne de commande WMI PRINTER GET ... permet d'obtenir différentes informations.
Exemple pour afficher le nom:
(c'est simplement RunProgram)

Code : Tout sélectionner

EnableExplicit

Enumeration    
     #Win
     #Rpt
EndEnumeration

SetGadgetFont(#PB_Any, FontID(LoadFont(#PB_Any, "Verdana", 8)))

OpenWindow(#Win, 0, 0, 500, 300, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListViewGadget(#Rpt, 5, 5, WindowWidth(#win) - 10, WindowHeight(#Win) - 10)

Define Run = RunProgram("wmic", "printer get name", "", #PB_Program_Open | #PB_Program_Read | #PB_Program_Hide)

If Run 
     While ProgramRunning(Run)
          If AvailableProgramOutput(Run)
               AddGadgetItem(#Rpt, -1, ReadProgramString(Run))
          EndIf
     Wend
     CloseProgram(Run)
     RemoveGadgetItem(#Rpt, 0) ; (enlever la première ligne de titre 'name')
Else
     AddGadgetItem(#Rpt, -1, "Erreur")
EndIf

While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend

viewtopic.php?t=16960

D'autres mot-clé possibles:
https://learn.microsoft.com/fr-fr/windo ... 32-printer

[Mindphazer]

Désolé mais cela ne répond pas à mon attente, merci quand même d'avoir essayé.
Ce code permet de définir une imprimante par défaut (ce qui suppose que l'imprimante est connue)...

La première partie du code de Mesa répond à cette attente. Elle liste les imprimantes connectées au PC.

[omega]

Merci à vous tous, ça marche. Je me suis rendu compte que j'ai déjà posé le même post en 2017.
Merci encore
bonne continuation