here is a function based on WolframAlpha[]
ShowSteps[exp_] :=
WolframAlpha[ ToString@HoldForm@InputForm@exp,
{{"Input", 2}, "Content"}, PodStates -> {"Input__Show steps"}]
SetAttributes[ShowSteps, HoldAllComplete]
for limits use
PodStates -> {"Limit__Show steps"}
for integration
PodStates -> {"IndefiniteIntegral__Show steps"}