Excel VBA打印太多副本

Question

我有一个宏，它可以格式化页面，然后根据用户输入如下进行打印：

    Dim printAnswer As String
    printAnswer = MsgBox("Print form?", vbQuestion + vbYesNo)

    If printAnswer = vbYes Then
        With wb.Worksheets("Sheet1").PageSetup
            .Zoom = False
            .FitToPagesTall = 1
            .FitToPagesWide = 1
            .PrintArea = "A1:B23"
            .PrintGridlines = True
        End With
        wb.PrintOut copies:=1
    End If

到目前为止，它运行良好。今天，由于某种原因，它开始打印多份副本，其中第一份副本根本没有任何格式，而第二份副本已正确格式化。当我在没有宏的情况下打印同一张纸时（通过打印对话框），它工作得很好。我尝试指定份数（如上所示）。我不知道发生了什么变化，但是我真的很想解决它。

我的Office版本最近从2013年升级到2016年，如果有帮助的话。