Как конвертировать макрос в PDF для запуска только для текущей страницы

Question

Цель: У меня есть макрос, который запускается для всех фильтруемых столбцов, однако меня интересует только запуск тестового PDF-документа для текущего поля.

Код:

    Application.ScreenUpdating = False

Dim PDFLoc As String
Dim PDFNm As String
PDFLoc = Range("PDFPath")


On Error Resume Next
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Sheets("Parish Pivot").Activate

Set pt = ActiveSheet.PivotTables.Item(1)
For Each pf In pt.PageFields
For Each pi In pf.PivotItems
        pt.PivotFields(pf.Name).CurrentPage = pi.Name

        Columns("B:B").ColumnWidth = 37

        PDFNm = PDFLoc & "\" & Range("B11").Value & ".pdf"

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFNm _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

Next
Next pf

Application.ScreenUpdating = True

Цените всю помощь.Спасибо.