VBA 複数のタイトル範囲を設定して印刷

Question

実現したいこと

複数ページにわたる資料を指定行毎に区切って印刷する際、
すべてのページにタイトルを設定することはできたのですが、
タイトル範囲を複数設定できないかと調べています。
よく会社が外部に出す資料などにはタイトルと、ページの下段に備考欄があるフォーマットを使用していると思いますが、
これと同じようにしたいと考えています。

発生している問題・分からないこと

いろいろ調べているのですがやりたいことに関する情報が見つかりません。

該当のソースコード

Sub 複数タイトル設定印刷()
 Dim i As Long, er As Long, pb As Long
  Worksheets("依頼書").ResetAllPageBreaks
  pb = 10
 er = Worksheets("見積依頼書").Cells(Rows.Count, 2).End(xlUp).Row
 
 For i = pb + 16 To er Step pb
  Worksheets("依頼書").HPageBreaks.Add Before:=Worksheets("依頼書").Cells(i, 2)
 Next
 With Worksheets("依頼書")
        .PageSetup.PrintTitleRows = Range(Cells(1, 2), Cells(15, 2)).Address
        .PageSetup.PrintTitleColumns = Range(Cells(1, 2), Cells(1, 6)).Address
        .PrintOut Preview:=True
    End With
  Worksheets("依頼書").PrintPreview
End Sub

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

いろいろ調べているのですがやりたいことに関する情報が見つかりません。

補足

特になし

Answer 1

タイトル範囲を複数設定できないか

1つのワークシートにおいて、ということであれば Excel の仕様上不可能です。

ページの下段に備考欄

ここでの「備考欄」が具体的に何を意味しているのか次第です。

例えば「『手書き用の記入枠』を全てのページフッター上に描画したい」ということならば、
あらかじめそういう枠線が描画された画像を作成しておいてフッターに挿入しておくしかありません。

「ページごとに異なる文字列や図形をフッターに出力したい」ということならば、
これも Excel の仕様上不可能です。
改ページされる範囲ごとにあらかじめ「フッターもどきの領域」を設けておいて
それぞれのセルを編集しておく、あるいは同一のヘッダー/フッター/印刷タイトルを
出力したい範囲ごとにワークシートを分割する、といった代替策で対応するしかないでしょう。

Comments

[hajihaji]

ありがとうございます。
その方法で試そうと思います。