Définir une imprimante par défaut

[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

[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.

[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