Here is a function that I use to remap printers...

Code:

Function fnRemapPrinter($sOldPath,$sNewPath)
   Dim $i,$nul,$sPorts,$sDefault,$sPrinters[25]
   If @INWIN=1
      $sPorts="HKCU\Printers\Connections\"
      $sDefault=Split(ReadValue("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device"),",")[0]
      Do
         $sPrinters[$i]=EnumKey($sPorts,$i)
         $i=$i+1
         If Ubound($sPrinters)=$i Redim Preserve $sPrinters[Ubound($sPrinters)+25] EndIf
      Until @ERROR
      Redim Preserve $sPrinters[$i-1]
      For $i = 0 to Ubound($sPrinters)
         If Join(Split($sPrinters[$i],","),"\") = $sOldPath
            $nul = DelPrinterConnection($sOldPath)
            $nul = AddPrinterConnection($sNewPath)
            If $sDefault = $sOldPath
               $nul = SetDefaultPrinter($sNewPath)
            EndIf
         EndIf
      Next
   EndIf
   Exit @ERROR
EndFunction