Dim objWord As New Word.Application
Dim objDoc As Word.Document
 
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Add("MeineVorlage.DOT") 'dort gespeichert wo 
' auch Normal.DOT liegt.
 
objWord.Visible = True
objWord.WindowState = wdWindowStateMaximize
objWord.Activate
 
objWord.ActivePrinter = "WeissWalti PS"
 
'Activate Duplex Print   KB194306, Method 2
With objWord
  [color=red].WordBasic.SendKeys "%fp%p%d{enter}+{tab}+{tab}{enter}"[/color]
End With
 
objWord.Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
  wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
  ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
  False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
  PrintZoomPaperHeight:=0

Sub test()
Dim myPrinter As Printer
Dim ix As Integer
 
ix = 0
Do
  Set myPrinter = Application.Printers(ix)
  If myPrinter.DeviceName = "WeissWalti PS" Then
    myPrinter.Duplex = acPRDPVertical
    Exit Do
  End If
  ix = ix + 1
Loop
End Sub