Forums PureBasic - Français
https://www.purebasic.fr/french/
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
La première partie du code de Mesa répond à cette attente. Elle liste les imprimantes connectées au PC.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)...