Graphics[{ Text[ Style["Jean", 14, Bold, "Helvetica", Black, TextAlignment -> Right],{1, 1}], Text[ Style["Claude", 10, "Helvetica", Bold, Black, TextAlignment -> Right], {19, .8}]}, PlotRange -> {{0, 21}, {0, 2}}, ImageSize -> 300, Method -> {"ShrinkWrap" -> True}, ImagePadding -> 2, ImageMargins -> 0] 
Now if i just try to add a small Rectangle[], the Text[] disappear.
Graphics[{ Rectangle[{18, 0}, {20, 2}], Text[ Style["Jean", 14, Bold, "Helvetica", Black, TextAlignment -> Right],{1, 1}], Text[ Style["Claude", 10, "Helvetica", Bold, Black, TextAlignment -> Right], {19, .8}]}, PlotRange -> {{0, 21}, {0, 2}}, ImageSize -> 300, Method -> {"ShrinkWrap" -> True}, ImagePadding -> 2, ImageMargins -> 0] 
