Since the preview area is scaled down, it might be nice to also scale the before/after spacing as well (in the preview area only) so it appears relative.
For example, Instead of:
FDemoPar.ASet(WPAT_SpaceBefore, SpacingBefore.Value)
Do this (seems to be about right):
FDemoPar.ASet(WPAT_SpaceBefore, MulDiv(SpacingBefore.Value, 100, 150))
One other thought... Would changing the zoom be better than setting the font size to 6.5? Then the above scaling suggestion would not be needed.
Eric