Sub Test1() Dim PV As PivotTable, PvtItem As PivotItem Set PV = Worksheets("Sheet3").Range("A1").PivotTable For Each PvtItem In PV.PivotFields("担当者 ").PivotItems PV.PivotFields("担当者 ").CurrentPage = PvtItem.Name ActiveSheet.PrintPreview '印刷プレビュー ' ActiveSheet.PrintOut '印刷 Next End Sub |
スポンサードリンク