e[x_,tot_,frac_]:=
OutputForm[ NumberForm[TableForm[x//N, TableDirections->Row],  {tot,frac},
                       ExponentFunction-> (#&), 
 NumberFormat->(If[#3=="", SequenceForm[#1,"E0"], SequenceForm[#1, "E", #3]]&)        
             (*          NumberFormat->(SequenceForm[#1, "E", #3]&) *)
                 ]
          ]