Please try this and report back. This will print out error messages if there are any.
code:
If AddPrinterConnection ("\\hercules\4050") = 0
  ? "Added printer connection...."
  sleep 1
  If SetDefaultPrinter ("\\hercules\4050") = 0
    ? "Set default printer to HP LaserJet 4...."
    sleep 1
  ELSE
    ? ''+@ERROR+' - '+@SERROR
    sleep 1
  Endif
ELSE
  ? ''+@ERROR+' - '+@SERROR
  sleep 1
Endif
_________________________
There are two types of vessels, submarines and targets.