Ошибка Excel VBA с Application.GetSaveAsFilename или Application.Dialogs (xlDialogPrinterSetup) - PullRequest
0 голосов
/ 03 июля 2018

впервые, но уже так много узнал в этом месте! Теперь есть проблема, для которой я не могу найти выход ..

У меня есть лист Excel с кучей userforms, который используется для выставления счетов. В одном из userforms пользователь имеет возможность распечатать счета. Весь код работает до строки:

fname = Application.GetSaveAsFilename("", "PDF Files (*.pdf), *.pdf")

Затем компьютер зависает, и Microsoft Excel, очевидно, использует >60% процессорной мощности. Через много минут окно «Сохранить как» наконец открывается, и все снова работает идеально.

Я пытался обойти эту проблему и печатать в pdf вместо сохранения в pdf, но то же самое происходит в строке:

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
      ActiveWindow.ActiveSheet.PrintOut
End If 

Есть ли какие-либо известные проблемы с этим кодом на слабых компьютерах? Весь код прекрасно работает на моем компьютере, но не на компьютере пользователя. Я встроил остановки и msgbox в другие части кода, на случай, если проблема будет в другом месте, но компьютер паникует только на этих строках.

Заранее большое спасибо за любые советы!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...