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

До сих пор он работал отлично.Сегодня по какой-то причине он начал печатать несколько копий, когда первая копия вообще не имеет никакого форматирования, а вторая отформатирована правильно.Когда я печатаю тот же лист без макроса (через диалог печати), он работает просто отлично.Я попытался указать количество копий (как показано выше).Я не могу понять, что изменилось, но я действительно хотел бы это исправить.

Моя версия офиса была недавно обновлена ​​с 2013 по 2016 год, если это полезно знать.