Фильтруйте, печатайте в PDF и сохраняйте

Question

Я хочу создать код, который будет выполнять следующие действия:

Из фильтра сводной таблицы, например, на основе "номера проекта" 0-100. Затем распечатайте отфильтрованные данные в формате PDF. Затем перейдите к следующему номеру проекта и повторите.

Проблема, с которой я сталкиваюсь, заключается в том, что номера проектов меняются каждую неделю. поэтому на первой неделе это может быть только 1,10,12,14, а на следующей неделе - 2,32,42,100.

Любые предложения по этому вопросу были бы хорошими, я вставил начало того, что я До сих пор, но я не думаю, что это где-то близко к правильному.

Sub PDF_printer()
'
' PDF_printer Macro
'

'
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Approved (Y)?"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Approved (Y)?")
        .PivotItems("Y").Visible = False
    End With
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Contract Simple"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Contract Simple")
        .PivotItems("0").Visible = False
        .PivotItems("1").Visible = False
        .PivotItems("2").Visible = False
        .PivotItems("3").Visible = False
        .PivotItems("4").Visible = False
        .PivotItems("5").Visible = False
        .PivotItems("6").Visible = False
End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Я знаю, что это еще не имеет функции печати, этот бит, я думаю, я могу сделать.