エクセルに係るページごとの印刷タイトルについて

質問

いつもお世話になっております。
　インターネットで検索し、それらしいのを見つけ見よう見まねでしてみましたが、希望どおりの動きになりませんでした。
　私なりに調べましたが答えが見つからなかったため、こちらで質問をさせていただきます。
　どうぞ、ご教示をよろしくお願いいたします。
【エクセルでの例】
１　全部で４ページです。

２　１ページと３ページには、タイトル行としたいもの全部を表示。

３　２ページと４ページには、「２」で示したタイトル行の一部を表示。

４　具体的には下記のようになります。
　［１ページと３ページ］
　タイトル行１　ああああああ
　タイトル行２　いいいいいい
　タイトル行３　うううううう
　タイトル行４　ええええええ
　タイトル行５　おおおおおお
　内容　　　　　○○○○○○

　［２ページと４ページ］
　タイトル行４　ええええええ
　タイトル行５　おおおおおお
　内容　　　　　○○○○○○

５　入力したモジュール
--------------------------------------------------------
　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
--------------------------------------------------------

　参考にさせてもらったサイトでは、印刷プレビューで確認すると「４」で説明したように表示されるとのことです。
　しかし、思ったような表示とはならず、どこが間違っているのかも分からず困っているところです。
　どうぞ、ご教示をお願いいたします。

回答No.5

kkkkkm

> 他の方法で、このようなことができる方法はありませんでしょうか。

質問のコードでうまくいかない原因もこちらでは分かりませんし、まったくどうなっているのか不明ですので、方法を示すことができません。
私は2013なのですが、ankleさんのほうでNo.2と同じシートを作成し、コードを実行しても駄目なのでしたら無理なのかもしれませんね。

お礼

kkkkkmさん、おはようございます。
いろいろとご配慮いただきまして、ありがとうございます。
別の方法を考えてみたいと思います。
今後とも、ご教示方よろしくお願いいたします。

回答No.4

kkkkkm

ブック全体を印刷にして1シート1ページで印刷しようとしているのでしたら質問のコードではできません。
見えている1シートに4ページがある前提のコードです。

お礼

kkkkkmさん、いつもお世話になっております。
　今までいろいろと試しましたが、私が見よう見まねで入れたモジュールでは、どこに原因があるのか分からず、どうやら無理のようです。
　他の方法で、このようなことができる方法はありませんでしょうか。私が求めているのはプレビューを挟まず、一度に印刷できたらと思っています。

補足

すみません、補足では画像が添付できなのですね。

回答No.3

kkkkkm

> 私の環境でプレビューをすると

すみません、環境が分からないので、私がNo.2の添付画像のようなシートで試したらうまくいきましたとしかいいようがありません。
添付画像は実行結果です。1ページをプレビュー表示して閉じると2ページ目のプレビュー表示のように1ページごとのプレビューになります。

補足

kkkkkmさん、早速のご回答ありがとうございます。kkkkkmさんから、私のパソコンの環境は分からないですよね。おかしな内容を聞いてしまい、失礼しました。
　そうですね、kkkkkmさんのだとしっかりとモジュール通り表示されていますね。
　遅れましたが、私の使用しているエクセルのバージョンは2019です。あと、私がテストで入力しているエクセルの画面をお送りしますので、ここから何か分かりますでしょうか。

回答No.2

kkkkkm

No.1のテストした状態は、添付画像のような状態で改ページを入れて4ページ作成しています。

補足

kkkkkmさん、いつも助けてくださいまして誠にありがとうございます。
　すみませんが、私の環境でプレビューをするとタイトル行は1ページにしか出てきません。
　何がおかしいのでしょうか。
　ご教示をお願いいたします。

回答No.1

kkkkkm

1ページごと(ページを閉じると次のページのプレビュー)にプレビューされますが「4」のようになりますよ。
すべてアクティブなシートが対象になります。