非表示ページが印刷スキップされず困っています再掲

質問

2018年7月28日に投稿した質問
『非表示ページが印刷スキップされず困っています。』に
画像を追加したい関係で新たに掲載させて頂いたものです。

EXCEl2013にて新規作成で以下の設定でしています。
MSPゴシック
フォントサイズ　11
列幅　8.38
行の高さ　13.5

用紙設定はA4縦、縮小なし

セルA1:C10、E1:G10、i1:K10のセル全てにデーターが入っていると仮定します。
(掲載画像はダミーデーターとして数字を入れています。)

ページ設定を以下のように3ページ指定します。
(D、H列は印刷範囲には含みません。)
1ページ目　A1:C10
2ページ目　E1:G10
3ページ目　i1:K10

2ページ目を印刷したくない場合
2ページ目　E列～G列を非表示にします。

ところが印刷プレビューでは2ページ目が空白ページで表示されます。
(D、H列を非表示にしても同様の症状が出ています。)

非表示の操作が面倒なので物は試しにグループ化を使用してみた所
同じような症状が出て困っています。

目的としては上記の3ページ分設定された原本シートを作成して
使用する書類に応じてシートを複製して書類(シート)ごとに
グループ化もしくは非表示でページ数を設定したいのです。

(使用するのが職場なのであまり詳しく書けない事をご了承願います。
実際は10ページほどありますが簡略化のために上記のように書いています。)

当方としてはグループ化もしくは手動で非表示切り替えをして
印刷時に2ページ目をスキップするようにしたいところです。

グループ化で無理なら手動で非表示の切り替えでも結構です。

最終的にどうしょうもなければページ設定を
その都度手動で切り替えるしかないと思っています。

マクロもありですができたら使用したくないのが本音です。
何しろデバッグが結構面倒ですから。
都合よく時間が空くとは限らないので・・・
(マクロのスキルですがマクロの自動記録を実施後、簡単な編集ができる程度です。
対話型マクロはお手上げですw)
なお職場のPCデーターの持ち帰りは残念ながら禁止です。

当方としては必要に応じて印刷ページを切り替えたいので
以下の方法は考えていません。

ページ設定で2ページ目の指定を印刷範囲から除去
E～G列のデーター消去もしくは列の削除

長文になりましたが一読頂きありがとうございます。
それではよろしくお願いします。

回答No.2

imogasi

列を非表示にして、印刷してみると、その列は印刷されなかった。（エクセルで有名な事項です）すなわち
質問者の言う内容の再現ができなかった。何か特殊な原因があると思うが、推測できない。
ーー
普通は印刷シートを別に作って、そこへ必要なデータを移し、データを移したシートを印刷する考えを用いるものと思う。コピー貼り付けで移すのは不可。
ーー
＃１回答にも述べられている、VBAでは、
１例で
Sub test01()
Set sh1 = Worksheets("Sheet1")
Set ps1 = Worksheets("Sheet2")
Set ps2 = Worksheets("Sheet3")
Set ps3 = Worksheets("Sheet4")
'--
ps1.Range("A1:c10").Value = sh1.Range("A1:C10").Value
ps2.Range("A1:c10").Value = sh1.Range("E1:G10").Value
ps3.Range("A1:c10").Value = sh1.Range("I1:K10").Value
ps1.PrintOut
ps3.PrintOut
End Sub
'ps2は印刷しないように省いた
のように、コードは、平凡な、「セル範囲の書き連ね」でできる。
（わざと単純な仕方にした。）
ーー
私なら、むしろｐｓ１－ｐｓ３の３シートを使わず
ｐｓ１を印刷シートにして、
（１）ｐｓ１に印刷データを持ってきて
（２）ｐｓ１を印刷
（３）ps1の印刷範囲をクリア
（４）（１）－（３）の処理を繰り返す。
でやる。
印刷シートでの表示形式の設定なども、現シートとは無関係に、できてよい。
ーー
また、前のOKWAVEでの質問の番号なりを、参考に載せて質問するものだと思うが。