Ускорение Сохранить в PDF Excel 2016 VBA

Question

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

По сути, этот скрипт проверяет, сколько есть заемщиков (количество клиентских пакетов может быть меньше, но никогда не будет больше 4).), затем заполнив некоторые данные, а затем распечатав несколько листов.

Вот мой код:

`customerpackages = 0

For counter = 1 To 19
    If Sheets("Loan Data").Cells(2, counter) <> "" Then
    customerpackages = customerpackages + 1
    counter = counter + 6
    End If
Next counter

For j = 1 To (customerpackages * 2)
    Sheets("Certification").Range("G43").Value = ssn_array(j - 1)
    Sheets("Certification").Range("G46").Value = ssn_array(j)
    Sheets("Anti-steering").Cells(3, 1).Value = borrower_array(j - 1)
    Sheets("Anti-steering").Cells(4, 1).Value = borrower_array(j)
    If borrower_array(j) = " " Then
        Sheets("Rate Lock").Cells(10, 1).Value = "NAME : " & borrower_array(j - 1)
    Else
        Sheets("Rate Lock").Cells(10, 1).Value = "NAME : " & borrower_array(j - 1) & " and" & borrower_array(j)
    End If
    Worksheets(common_disclosures).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\users\" & environ_user & "\desktop\" & borrower_array(j - 1) & " 
    disclosures.pdf" _
    , Quality:=xlQualityMinimum, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
    j = j + 1
Next j`

Заранее благодарен за помощь.