Office2007Excelのヘッダーを、奇数ページ数は含まず偶数ページのみに記載する方法

質問

現在、ExcelのA4データが100枚以上あります。
客先より、次のような依頼がありました。

・A3で2枚づつ提出
・ページ数はA3　1枚につき1ページ、総ページ数50程度

A3で、2ページ/枚との設定をしましたが、各A4データ上でページ数が決まってしまい、A3　1枚につき2ページ毎増えてしまいます。
偶数ページのみの設定を使用し、右上にページを1枚毎に増えていく設定にしたいのですが。
偶数のみ設定して、ページ数を2で割れるのでしょうか。

明日提出期限なので、困っています。
よろしくお願いします。

回答No.1

Wendy02

こんばんは。

Wordには出来てもExcelでは標準的には出来ません。

マクロを実行する前に、必ず、ヘッダー・フッターは、残っていないことを条件とします。

今のマクロは、プレビューをするようになっています。その状態を止めるには、Ctrl + Break を押してください。

　　　　.PrintOut From:=i, To:=i　, Preview:=False とすれば、印刷されます。

'-------------------------------------------

Sub Test1()
Dim LastPage As Long
Dim i As Long
Dim k As Long
k = 1
With ActiveSheet
　　'ページ数取得
　　LastPage = (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1)
　　For i = 1 To LastPage
　　　　 .PageSetup.RightHeader = ""
　　　　 If i Mod 2 = 0 Then
　　　　　　'Page 数代入
　　　　　　.PageSetup.RightHeader = CStr(k)
　　　　　　k = k + 1
　　　　 End If
　　　　.PrintOut From:=i, To:=i, Preview:=True　''* False;印刷
　　Next
　　.PageSetup.RightHeader = ""
End With
End Sub