エクセルに係るページごとの印刷タイトルについて
いつもお世話になっております。
インターネットで検索し、それらしいのを見つけ見よう見まねでしてみましたが、希望どおりの動きになりませんでした。
私なりに調べましたが答えが見つからなかったため、こちらで質問をさせていただきます。
どうぞ、ご教示をよろしくお願いいたします。
【エクセルでの例】
１ 全部で４ページです。
２ １ページと３ページには、タイトル行としたいもの全部を表示。
３ ２ページと４ページには、「２」で示したタイトル行の一部を表示。
４ 具体的には下記のようになります。
［１ページと３ページ］
タイトル行１ ああああああ
タイトル行２ いいいいいい
タイトル行３ うううううう
タイトル行４ ええええええ
タイトル行５ おおおおおお
内容 ○○○○○○
［２ページと４ページ］
タイトル行４ ええええええ
タイトル行５ おおおおおお
内容 ○○○○○○
５ 入力したモジュール
--------------------------------------------------------
Private Sub PrintTitleRowsSet()
Dim pg As Integer
Const AllPage = 4
Worksheets("sheet1").Activate
For pg = 1 To AllPage
With ActiveSheet.PageSetup
Select Case pg
Case 1: .PrintTitleRows = "$1:$5"
Case 2: .PrintTitleRows = "$4:$5"
Case 3: .PrintTitleRows = "$1:$5"
Case 4: .PrintTitleRows = "$4:$5"
End Select
ActiveWindow.SelectedSheets.PrintOut From:=pg, To:=pg, Preview:=True
End With
Next
End Sub
--------------------------------------------------------
参考にさせてもらったサイトでは、印刷プレビューで確認すると「４」で説明したように表示されるとのことです。
しかし、思ったような表示とはならず、どこが間違っているのかも分からず困っているところです。
どうぞ、ご教示をお願いいたします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_2_thumbnail_img_sm.png)
お礼
>タイトル印刷の機能はExcelでは「ページレイアウト」リボンの 「印刷タイトル」ボタンです。 ありました。 どうもありがとうございました。