Public Sub PrintManualDuplex()
    Dim startPage As Variant
    Dim endPage As Variant
    startPage = InputBox("Start Page")
    endPage = InputBox("End Page:")
    startPage = CStr(startPage)
    endPage = CStr(endPage)

    Application.Options.PrintOddPagesInAscendingOrder = True
    ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=startPage, To:=endPage, ManualDuplexPrint:=True
End Sub