Formatering af tekst via makro/VBA ændres ved udskrift

Hejsa,

Jeg sidder og bøvler med en makro/VBA som jeg synes opfører sig lidt underligt.

For lige at ha' noget konkret kode at kigge på er den her:

Sub Makro3()
'
' Makro3 Makro
' Makro indspillet 08-12-2004 af XXX
'
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:= _
        "ask batchnummer ""Indtast batchnummer: "" /d """""
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:="*"
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="ref batchnummer \ * fletformat"
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:="*"
    Selection.TypeParagraph
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="ref batchnummer \ * fletformat"
    Selection.WholeStory

    Selection.Fields.Update
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Font.Name = "Times new Roman"
    Selection.Font.Size = 28
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.MoveDown Unit:=wdLine
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Font.Name = "Times new Roman"
    Selection.Font.Size = 10
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.MoveUp Unit:=wdLine
End Sub

Kort fortalt skal brugeren spørges om et nummer. Denne nummer skal gentages på 2 linier - øverste "indkapslet" i *-tegn og i en anden font og størrelse.
Når det hele er færdig er den øverste linie en stregkode - fonten er dog ændret til Times New Roman, da strejkodefonten er lidt speciel. Strejkodefonten har dog ikke noget med problemet at gøre - Times New Roman opfører sig på nøjagtig samme måde.

Problemet er at at den nederste linie bliver ændret til samme størrelse som den øverste, men først når man vælger udskriv/vis udskrift. Indtil da står det lige som det skal på skærmen og også hvis man nærlæser på formateringen inden man vælger udskriv, ser det ud til at nederste linie er forskellig fra den øverste.

Skal lige nævne at det er Word XP (2002).

Håber jeg har fået alle oplysninger med... ellers er det bare at spørge.