I added this to the bottom of my script. This fixed the problem printer + kept the defalt printer.

-----------------------------------------
Function PriMapState($_Pri)
If Len(ReadValue('HKCU\Software\Microsoft\Windows NT\CurrentVersion\Devices',$_Pri))
If InStr(ReadValue('HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows','Device'),$_Pri)
$PriMapState=2
Else
$PriMapState=1
EndIf
EndIf
EndFunction
------------------