#include <MsgBoxConstants.au3>
Local $sAnswer = InputBox("Set default printer", "Enter the name of the printer you want to be default", "DKTASA06", "", -1, -1, 0, 0)

if $sAnswer <> "" Then
	Run("RUNDLL32 PRINTUI.DLL,PrintUIEntry /y /n " & $sAnswer)
EndIf