If the problem is like you say, maybe reorganise the script and put the SetDefaultPrinter() functions at the end
Break ON
DIM $SO
$SO = SetOption("Explicit", "ON")
$SO = SetOption("NoMacrosInStrings", "ON")
$SO = SetOption("NoVarsInStrings", "ON")

If InGroup ("Prn_01-G")
    $SO = AddPrinterConnection ("\\server\Prn_01")
EndIf
If InGroup ("Prn_02-G")
    $SO = AddPrinterConnection ("\\server\Prn_02")
EndIf
If InGroup ("Prn_03-G")
    $SO = AddPrinterConnection ("\\server\Prn_03")
EndIf
If InGroup ("Prn_04-G")
    $SO = AddPrinterConnection ("\\server\Prn_04")
EndIf
If InGroup ("Prn_05-G")
    $SO = AddPrinterConnection ("\\server\Prn_05")
EndIf
If InGroup ("Prn_06-G")
    $SO = AddPrinterConnection ("\\server\Prn_06")
EndIf
If InGroup ("Prn_07-G")
    $SO = AddPrinterConnection ("\\server\Prn_07")
EndIf

If InGroup ("Prn_01D-G")
    $SO = SetDefaultPrinter ("\\server\Prn_01")
EndIf
If InGroup ("Prn_02D-G")
    $SO = SetDefaultPrinter ("\\server\Prn_02")
EndIf
If InGroup ("Prn_03D-G")
    $SO = SetDefaultPrinter ("\\server\Prn_03")
EndIf
If InGroup ("Prn_04D-G")
    $SO = SetDefaultPrinter ("\\server\Prn_04")
EndIf
;If InGroup ("Prn_05D-G")
    $SO = SetDefaultPrinter ("\\server\Prn_05")
;EndIf
If InGroup ("Prn_06D-G")
    $SO = SetDefaultPrinter ("\\server\Prn_06")
EndIf