Table[p =
ListPlot[Table[{x, Sin[x]}, {x, -0.5, 6, 0.2}],
PlotRange -> {{0, 5.1}, {-1, 1}}, Frame -> True,
ImageSize -> {200, 150}, Joined -> True,
ImagePadding -> {{q, 5}, {40, 5}}, PlotRangeClipping -> True];
Export["myfig" <> ToString[q] <> ".eps", p], {q, 20, 50, 1}]
Thanks Udo Krause for the input.
Now I change the imagepadding on the left side, and output each:
To summarize here is a list of when the clipping is correct or wrong on the left/right side:
#: left/right
20: wrong/wrong
21: correct/correct
22: wrong/wrong
23: correct/correct
24: wrong/wrong
25: correct/correct
26: correct/correct
27: wrong/correct
28: correct/correct
29: correct/correct
30: correct/correct
31: correct/correct
32: correct/wrong
33: wrong/correct
34: wrong/wrong
35: correct/correct
36: wrong/correct
37: correct/corect
38: correct/correct
39: wrong/correct
40: wrong/correct
41: correct/correct
42: correct/correct
43: correct/correct
44: wrong/correct
45: correct/correct
46: correct/wrong
47: correc/correct
48: correct/correct
49: correct/corect
50: correct/correct