將動態樞軸設置為打印區域

Question

我已經嘗試通過命名范圍進行操作，但是由於某種原因，運行宏后，方程式會在命名范圍內自動變化。 因此，我嘗試在宏本身內設置范圍。 我正在編寫一個宏，它將通過切片器查看並將2張紙另存為PDF。 第二個選項卡具有樞軸，每次切片器更改時，哪個區域范圍都會更改。 有人可以幫助我，以便將其動態打印為PDF嗎？

Sub Loopexport()

Dim ws2 As Worksheet
Dim PT As PivotTable

'Hide non-printable sheets
    Sheets("Overview").Visible = False
    Sheets("KPExport").Visible = False

Set ws2 = Sheets("Id CUps")

Set PT = ws2.PivotTables(1)

'Set print areas
    Sheets("Stats").PageSetup.PrintArea = "$A$1:$M$39"
    ws2.PageSetup.PrintArea = PT.TableRange2 'this is where I am receiving the type mismatch. and the = "My named range" kept changing automatically at the end.

    With Sheets("Id CUps").Columns("D:D")
            .HorizontalAlignment = xlGeneral
            .VerticalAlignment = xlBottom
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
    End With

'Print Regions
'Export N1
ActiveWorkbook.SlicerCaches("Slicer_Dt").VisibleSlicerItemsList = Array("[UserID].[Dept].&[N1]")

ChDir ("C:\My Docs\A\B\Export")
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\My Docs\A\B\Export\N1 - " & Format(Now(), "YYYY") & "M" & Format(Now(), "MM")

End Sub

Answer 1

ws2.PageSetup.PrintArea = PT.TableRange2.Address