Двусторонняя печать из макроса на принтер с дуплексом

[s-alf]

Нужна помощь в написании макроса. Этот код

Sub AutoDuplex()
	Dim oSection As Section
	Dim oRng As Range
	Dim oFld As Field
	Dim strDuplex As String
		strDuplex = "27""&l1S"""
	        For Each oSection In ActiveDocument.Sections
		With oSection.PageSetup
			.FirstPageTray = LetterHeadedTrayNo
			.OtherPagesTray = PrePrintedTrayNo
		End With
	Set oRng = oSection.Range
	For Each oFld In oRng.Paragraphs(1).Range.Fields
		If oFld.Type = wdFieldPrint Then
		oFld.Delete
		End If
	Next oFld
		oRng.End = oRng.Start
		ActiveDocument.Fields.Add oRng, wdFieldPrint, strDuplex, False
		ActiveWindow.View.ShowFieldCodes = False
		Next oSection
		ActiveDocument.PrintOut
	End Sub

выводит на печать документ без колонтитулов правильно. При наличии колонтитула (с номерами страниц на 2-х страничном документе) первая страница выходит без текста (распечатывается только первый номер страницы), вторая с текстом на первой/второй стороне и 2-ым номером страницы. Всего два листа, а надо 1. Кто-нибудь победил?