Excel・VBA 印刷出力時のヘッダーの設定について

Question

【問題】
・Excelの印刷出力時の設定で、ヘッダーの設定を行っているが、
  2ページ目以降にヘッダー情報が設定されない(1ページ目は設定されている)。

・下記のエラーが出力される場合がある
  実行時エラー'1004'
  PageSetupクラスのRightHeaderプロパティを設定できません。

VBAの処理において、下記の通り、ヘッダー(右ヘッダー)に
情報を出力する処理を入れています（番号、出力日付、ページ番号）。

With Workbooks(strOutputTate).Sheets("シート名")
.PageSetup.RightHeader = " No. " & Range("番号") & "   &D    P &P"

＜Excel印刷時の表示（例）＞
No. 99999   2019/5/16    P1

〇問題が発生する環境
  OS:Windows 10
  Excelバージョン:2016
 
  OSのBuildバージョンなど、
  その他詳細は不明です。
 
  ※現状、上記の環境以外では発生しておりません。

【ご質問】
VBAにてヘッダー情報を設定した際、
上記のような問題が発生する原因をご教授頂きたいです。

Answer 1

堀内さま、こんにちは。

１．2ページ目以降にヘッダー情報が設定されない(1ページ目は設定されている。)という点については、処理対象のシートのページ設定のヘッダー/フッタータブの「奇数/偶数ページ別指定(D)」や「先頭ページのみ別指定(I)」の設定はどうなっているでしょうか。

２．.PageSetup.RightHeader = " No. " & Range("番号") & "   &D    P &P"　については、よくわかりませんので、次のような単純なスクリプトを作って実行してみました。

Sub test()
  With ThisWorkbook.Sheets(1)
    .PageSetup.RightHeader = " No. " & "12345　　ほげほげ"
  End With
End Sub

Windows7　+　Excel2013　及び　Windows10 +Excel 2016　で実行してみましたが、いずれも、特段のエラーやヘッダー情報の設定ができないなどの問題はありませんでした。

単純化した部分の元のスクリプトに問題があるのかもしれません。以上、ご参考まで。