This seems to ameliorate the problem:
Row@{"count = ",
PaddedForm[count, 8,
NumberPadding -> {" ", "0"}], Spacer[20],
"t = ",
NumberForm[N[t], {10, 4},
NumberPadding -> {" ", "0"}], Spacer[20],
"(e-e0)/e0 = ",
NumberForm[(e - e0)/e0, {8, 4},
NumberPadding -> {"0", "0"},
ExponentFunction -> (3 Quotient[#1, 3] & )]}