Maybe...
r.ShrinkToFit = True
Too tiny to see? Dave