VBA双面打印，为什么第一段代码没运行，就开始弹出对话框？

gavincar

想通过下面的代码，打印完偶数页，然后弹出对话框，点击确认后，再打印另外的奇数页。

结果运行代码，直接弹出个对话框，并没有按预订打印出偶数页。这时点击对话框上的取消按钮，反而把偶数页打印出来了。

不知道哪里出现了问题。

Sub 双面打印()
  Options.PrintReverse = True
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
                         wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
                         wdPrintEvenPagesOnly, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
                         PrintZoomPaperHeight:=0
    response = MsgBox("打印另一面", 1, "提示")
    If response = vbYes Then
        Options.PrintReverse = False
        Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
                             wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
                             wdPrintOddPagesOnly, Collate:=True, Background:=True, PrintToFile:=False, _
                             PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
                             PrintZoomPaperHeight:=0
    End If
End Sub