(* j instead of I for the imaginary unit *)

Unprotect[ Complex ]

j = I
Format[c_Complex,OutputForm] := Re[c] + HoldForm[j] Im[c]
MakeBoxes[I,_] := "\[ImaginaryJ]"

Protect[ Complex ]

Null
