[[20220308162350]]　『ピボットテーブルの印刷マクロについて質問です。』（うりゅ）　ページの最後に飛ぶ

『ピボットテーブルの印刷マクロについて質問です。』（うりゅ）

マクロ初心者のものです。
ピボットテーブルの印刷マクロ作成について質問です。
ラインごとにまとめて(月・火・水と木・金・土と分けて印刷したいです。)印刷したいのですが、どのようにすればいいのか分かりません
※ピボットテーブルの欄にある　すべて・空白は、はぶいて印刷したいです。
マクロ作成し、印刷は出来るのですが
思い通りにいかない為、ご教授をお願い致します。

Sub テスト()
'
' テスト Macro

 Dim flg As Boolean
'

    Sheets("●ライン").Select
    Range("A9").Select
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotCache.Refresh
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("納入日　").ClearAllFilters
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("納入日　").CurrentPage = "納入日"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

    Sheets("★ライン").Select
    Range("A9").Select
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotCache.Refresh
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("納入日　").ClearAllFilters
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("納入日　").CurrentPage = "納入日"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

End Sub

＜使用 Excel：unknown、使用 OS：Windows10 ＞

コメントが付かないようなので、
たぶんページフィールドはピボットテーブルではデータ追加作成できないので、ソースに曜日データを持たせる必要があります。
ソースはexcelデータの単表ですか（SourceType が xlDatabase)？
ソースに曜日列を追加出来ますか？　例）　=IF(B2=""," ",TEXT(B2,"aaa"))

（kazuo） 2022/03/10(木) 09:23

ＣＳＶデーターから集約し、日付別になっているそうです
SourceType xlDatabaseが分からず、データー見たところPivotFields("製造日").CurrentPage = hiとなっておりました。
また、職場の先輩に相談したところ、フォーマットが決まっていて、曜日列の追加ができません
（うりゅ） 2022/03/10(木) 13:04

＞ＣＳＶデーターから集約
なら、接続はパワークエリですよね。
曜日列追加出来る人が会社に居ませんか？

私は詳しくないので降りさせていただきます。

（kazuo） 2022/03/10(木) 15:34

コメント返信：

[ 一覧(最新更新順) ]

[[20220308162350]] 『ピボットテーブルの印刷マクロについて質問です。』（うりゅ） ページの最後に飛ぶ

[[20220308162350]]　『ピボットテーブルの印刷マクロについて質問です。』（うりゅ）　ページの最後に飛ぶ