Standard Druckerauswahl über Script.

;
; StandardDruckerauswahl
;
#SingleInstance ignore

; -- In der Registry nachschauen welcher Drucker als Standard eingestellt ist
RegRead, DRU_STD, HKCU, Software\Microsoft\Windows NT\CurrentVersion\Windows, Device
StringSplit, Word_Array, DRU_STD, `,
StringReplace, DRU_STD, Word_Array1, \\

; -- Aus der Registry auslesen welche Drucker installiert sind
prnCount = 0
prnNames =
Loop, HKCU, Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts, 1
{
   StringReplace, Drucker, A_LoopRegName, "  
;"  
   prnCount += 1
   prnNames = %prnNames%%Drucker%|
   If Drucker = %DRU_STD%
      prnDefault = %prnCount%
}
;prnCount += 1
IfGreater, prnCount, 10
   prnCount = 10

; -- ComboBox
Gui, Color, F4F3FF

Gui, Font, s8, Verdana
Gui, Add, Text, xp+130 yp+010 cRed, Der Ausgewählte Drucker ist im`nMoment der StandardDrucker!
Gui, Font, s10, Verdana
Gui, Add, Button, xp-130 yp+000 gSelect default, &Drucker wählen
Gui, Add, ListBox, xp+000 yp+040 w320 R%prnCount% Choose%prnDefault% Sort gPrinter vPrinter, %prnNames%
Gui, Show, , StandartDruckerauswahl
Return

; -- Drucker mit DoppelClick ausgewählt
Printer:
   If A_GuiControlEvent <> DoubleClick
      Return

; -- Den ausgewählten Drucker anzeigen
Select:
   GuiControlGet, Printer
   MsgBox, 64, StandartDruckerauswahl, Als StandardDrucker wurde: "%Printer%" ausgewählt!, 5  
   Run, %windir%\system32\RUNDLL32.exe PRINTUI.DLL`,PrintUIEntry /y /n "%Printer%"  
   ExitApp

; -- Programm beenden
GuiEscape:
GuiClose:
ExitApp