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

  • 質問

  • 【問題】
    ・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にてヘッダー情報を設定した際、
    上記のような問題が発生する原因をご教授頂きたいです。

    2019年5月16日 6:48

すべての返信

  • 堀内さま、こんにちは。

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

    2..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 で実行してみましたが、いずれも、特段のエラーやヘッダー情報の設定ができないなどの問題はありませんでした。

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


    2019年5月16日 11:03