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

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
omega
Messages : 633
Inscription : sam. 26/nov./2011 13:04
Localisation : Alger

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

Message par omega »

Bonsoir

J'aimerais savoir si on peut détecter les imprimantes connectées à mon ordinateur.
Merci
Dernière modification par omega le ven. 19/avr./2024 0:42, modifié 2 fois.
Win7 (x64) 64 bits Pb 5.72
Avatar de l’utilisateur
omega
Messages : 633
Inscription : sam. 26/nov./2011 13:04
Localisation : Alger

Re: Détecter le types d'imprimantes connectée sur mon pc

Message par 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)...
Win7 (x64) 64 bits Pb 5.72
Marc56
Messages : 2197
Inscription : sam. 08/févr./2014 15:19

Re: Détecter le types d'imprimantes connectée sur mon pc

Message par 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

:wink:
Avatar de l’utilisateur
Mindphazer
Messages : 694
Inscription : mer. 24/août/2005 10:42

Re: Détecter le types d'imprimantes connectée sur mon pc

Message par Mindphazer »

omega a écrit : mar. 09/avr./2024 14:40 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.
Bureau : Win10 64bits
Maison : Macbook Pro M3 16" SSD 512 Go / Ram 24 Go - iPad Pro 32 Go (pour madame) - iPhone 15 Pro Max 256 Go
Avatar de l’utilisateur
omega
Messages : 633
Inscription : sam. 26/nov./2011 13:04
Localisation : Alger

Re: Détecter le types d'imprimantes connectée sur mon pc

Message par 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
Win7 (x64) 64 bits Pb 5.72
Répondre