LimitedPrint[n_] := Module[{s = IntegerString[n], len},
  len = StringLength[s];
  If[len <= 40, s, StringJoin[StringTake[s, 20], "...", StringTake[s, -20], " (", ToString[len], " digits)"]]
]

ShowFactorialPrimes[N_] := Module[{f},
  Do[
    f = Factorial[i];
    If[PrimeQ[f - 1], Print[IntegerString[i, 10, 3], "! - 1 -> ", LimitedPrint[f - 1]]];
    If[PrimeQ[f + 1], Print[IntegerString[i, 10, 3], "! + 1 -> ", LimitedPrint[f + 1]]],
    {i, 1, N}
  ]
]

ShowFactorialPrimes[1000]