Тест на разрыв страницы работает в пошаговом режиме (F8), но не на производстве (F5) - PullRequest
0 голосов
/ 19 апреля 2020

У меня есть код VBA ниже, который работает для тестирования и создания разрывов страниц, если я выполняю код вручную, но если я его запускаю, он последовательно прерывается на этой строке. Я подумал, что, возможно, разрывы страниц не поспевают за кодом, и мне понадобилась секунда, чтобы их обработать и догнать, поэтому я добавил строку ожидания. Это не помогло. Я гуглял это как сумасшедший, и хотя я могу обойти это, позволяя ему сломаться, пройти через F5, чтобы снова запустить его, я должен передать этот проект кому-то еще, кто вообще не кодирует. Это должно работать!

CurRow=71
PBRow=69    
If Not Worksheets("TEST").Rows(CurRow).PageBreak = xlPageBreakNone Then Worksheets("TEST").Rows(PBrow).PageBreak = xlPageBreakManual`

Пытался добавить перед строкой выше, но не помогло.

Application.Wait (Now + TimeValue("00:00:01"))

Любая помощь будет принята с благодарностью.

...