Page 1 sur 1
Définir une imprimante par défaut
Publié : sam. 06/avr./2024 16:16
par omega
Bonjour,
J'ai 2 imprimantes connectées, l'une pour les documents A4, l'autre pour les étiquettes code barres. Pour imprimer une étiquette de code barre, je dois donc définir par défaut l'imprimante spéciale code barre. Comment faire ?
Merci
Re: Définir une imprimante par défaut
Publié : dim. 07/avr./2024 10:03
par Mesa
Pour windows seulement:
Code : Tout sélectionner
Define Run = RunProgram("wmic", "printer get name", "", #PB_Program_Open | #PB_Program_Read | #PB_Program_Hide)
If Run
While ProgramRunning(Run)
If AvailableProgramOutput(Run)
Debug ReadProgramString(Run)
EndIf
Wend
CloseProgram(Run)
Else
Debug "Erreur"
EndIf
; Set Default printer
Procedure Setdefaultprinter1(DeviceLine.s)
RunProgram("RUNDLL32","PRINTUI.DLL,PrintUIEntry /y /n"+ #DQUOTE$+DeviceLine+#DQUOTE$,"")
EndProcedure
Setdefaultprinter1("PDFCreator")
M.
Re: Définir une imprimante par défaut
Publié : dim. 07/avr./2024 10:45
par Mindphazer
Ou aussi (Win only)
Code : Tout sélectionner
Procedure Setdefaultprinter1(DeviceLine.s)
WriteProfileString_("windows", "Device", DeviceLine)
SendNotifyMessage_(#HWND_BROADCAST, #WM_WININICHANGE, 0, "windows")
EndProcedure