TabStops in Headers

[gaffeltje]

in een visual basic 6.0 programma maak ik een print met gebruik van "CreateObject("Word.Application")
in de kopregel wil ik dezelfde tabs gebruiken als in de tekstregels, maar dit lukt me niet!
ondanks TabStops.ClearAll en enkele nieuwe TabStops.Add maakt alleen de tekstregel gebruik van deze TabStops,
de kopregel maakt ook gebruik van tabs, alleen weet ik niet welke, in ieder geval de verkeerde
wie kan mij helpen dit probleem op te lossen
hieronder een afdruk van het visual basic programma

Sub tabs()
' Project / References / Microsoft Word 12.0 Object Library (Office 2007)
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Add
wordApp.ActivePrinter = "CutePDF Writer"
wordApp.Selection.Font.Name = "Times New Roman"
wordApp.Selection.Font.Size = 6
wordApp.Selection.PageSetup.PaperSize = wdPaperA4
wordApp.Selection.PageSetup.Orientation = wdOrientLandscape
wordApp.Selection.PageSetup.TopMargin = wordApp.CentimetersToPoints(1.3)
wordApp.Selection.PageSetup.BottomMargin = wordApp.CentimetersToPoints(1.3)
wordApp.Selection.PageSetup.LeftMargin = wordApp.CentimetersToPoints(1.3)
wordApp.Selection.PageSetup.RightMargin = wordApp.CentimetersToPoints(1.3)
wordApp.Selection.Paragraphs.TabStops.ClearAll
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(15), Alignment:=wdAlignTabRight
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(16.1), Alignment:=wdAlignTabRight
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(17.2), Alignment:=wdAlignTabRight
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(18.3), Alignment:=wdAlignTabRight
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(19.4), Alignment:=wdAlignTabRight
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(20.5), Alignment:=wdAlignTabRight
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(21.6), Alignment:=wdAlignTabRight
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(22.7), Alignment:=wdAlignTabRight
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(23.8), Alignment:=wdAlignTabRight
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(24.9), Alignment:=wdAlignTabRight
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(26), Alignment:=wdAlignTabRight
wordApp.Selection.Paragraphs.TabStops.Add wordApp.CentimetersToPoints(27.1), Alignment:=wdAlignTabRight
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Name = "Times New Roman"
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Size = 6
Tekst = vbTab & "januari" & vbTab & "februari" & vbTab & "maart" & vbTab & "april" & vbTab & "mei" & vbTab & "juni" & vbTab & _
"juli" & vbTab & "augustus" & vbTab & "september" & vbTab & "oktober" & vbTab & "november" & vbTab & "december" & vbNewLine
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = Tekst
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberCenter
wordApp.Selection.TypeText Tekst
wordApp.Selection.TypeParagraph
End Sub