EXCEL VBA ピボットテーブルを使ったデータの一括印刷

質問

EXCEL VBA ピボットテーブルを使ったデータの一括印刷
複数のピボットで集計したデータやその他のデータをピボットテーブル
以外のセルで関数を使って組み合わせて表やグラフを作成しています。
1つのピボットテーブルのページフィールドで顧客を選択するとその顧客の表と
グラフが表示できるようになっています。

そこで1つ1つの顧客を選択して印刷をするのは面倒なので
全ての顧客の表とグラフ(印刷範囲で設定済み)を一括で印刷するマクロを
設定してみました。

EXCEL 2003
シート名　本社
選択するページフィールドのセル B1　
フィールド名　名称
--------------------------------------------------------------
Sub　一括印刷 ()
Worksheets("本社").Activate
With ActiveSheet.Range("B1").PivotTable '現在シートのB1セルのピボットテーブルの
For Each 各アイテム In .PivotFields("名称").PivotItems '名称フィールドの各アイテム
名称 = 各アイテム.Name 'アイテムの名前を取得
.PivotFields("名称").CurrentPage = 名称 '表示するページを設定
ActiveSheet.PrintOut '印刷
Next
End With
End Sub
--------------------------------------------------------------
以上で実行すると全て印刷できるのですが、実行時エラー'1004':
ＰｉｖｏｔＩｔｅｍクラスの＿Defaultプロパティを設定できません。とエラーになってしまいます。

おそらくアイテム(顧客名の数)が複数あるからでしょうか?
CurrentPage=名称の「名称」の部分を変動させればできるのでしょうか?

私のレベルでは、これ以上わかりません。。。

どなたか、教えてください。。。宜しくお願いたします。

回答No.1

OtenkiAme · ベストアンサー

こんにちは。

もしかして、ページフィールドのアイテムが実在していないために
起こっているかもしれないので、エラー発生時も継続処理にして
正常処理なら印刷する　という方法にされたら如何でしょうか？

Dim PvtSht As Worksheet 'ピボットテーブルのあるシート
Dim PvtTbl As PivotTable 'Ｂ１セルのピボットテーブル
Dim PvtFld As PivotField 'ページフィールド
Dim PvtItem As PivotItem 'ページフィールドの各アイテム
Dim FirstItem As String '元のアイテム

'オブジェクト型の変数に各オブジェクトの参照を設定する
Set PvtSht = Worksheets("本社")
Set PvtTbl = PvtSht.Range("B1").PivotTable
Set PvtFld = PvtTbl.PivotFields("名称")
'現在のアイテム名を取得する
FirstItem = PvtFld.CurrentPage.Name
'"本社"シートをアクティブ
PvtSht.Activate
'指定したページフィールドの各アイテムを
For Each PvtItem In PvtFld.PivotItems
　　'エラー発生時も処理を継続する
　　On Error Resume Next
　　'指定ページフィールドのアイテムを変更する
　　PvtFld.CurrentPage = PvtItem.Name
　　'エラーが発生しなかったら
　　If Err.Number = 0 Then
　　　　'シートを印刷する
　　　　PvtSht.PrintOut
　　End If
　　'エラー処理をリセットする
　　On Error GoTo 0
Next PvtItem
'指定ページフィールドに最初のアイテム名を設定する
PvtFld.CurrentPage = FirstItem
'オブジェクト型変数の参照設定を解除する
Set PvtFld = Nothing
Set PvtTbl = Nothing
Set PvtSht = Nothing

お礼

OtenkiAmeさん

ご回答ありがとうございます。
お返事が遅れまして大変申し訳ございません。

テストしましたら、エラーもなく、初期の名称にも戻り
感動致しました。

勉強になります。
本当にありがとうございました。