впервые, но уже так много узнал в этом месте! Теперь есть проблема, для которой я не могу найти выход ..
У меня есть лист 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 в другие части кода, на случай, если проблема будет в другом месте, но компьютер паникует только на этих строках.
Заранее большое спасибо за любые советы!