How do I retain envelope format settings?

I'm having trouble retaining my envelope format settings. When I run the
macro it does not retain the formating from the ('set the envelope style)
section.

Sub printenvelope()
'instantiate the envelope
Dim mydoc As Document
Dim myenvelope As Envelope
Set mydoc = ActiveDocument
Set myenvelope = mydoc.Envelope

'set the envelope style
With myenvelope.AddressStyle
.Font.Name = "Arial"
.Font.Size = 12
.ParagraphFormat.Space1
.ParagraphFormat.LineUnitAfter = 0
.ParagraphFormat.LineUnitBefore = 0
End With

'print the envelope out
myenvelope.PrintOut extractaddress:=True, _
omitreturnaddress:=True, _
Size:="size 10", _
AddressFromLeft:=InchesToPoints(3), _
AddressFromTop:=InchesToPoints(1.5)

End Sub