エクセルのコピーしたシートの印刷について

Question

いつもお世話になっております。
excel2019 (VBA)

シートをコピーして新しいブックにした際、印刷範囲が変わり
直す方法がわからない。
何かヒントでも頂けると助かります。

エクセルで下記のようなコードでシートを
コピーして、新しいブックにて保存しています。
(手動でシートをコピーして新しいブックにしても、同現象が発生します。)

    Worksheets("シート").Select
    Worksheets("シート").Copy
    Worksheets("シート").Range("A1:AW139").Font.Name = "ＭＳ Ｐゴシック"    
    Worksheets("シート").Protect Password:="1234", AllowFormattingCells:=True
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\test.xlsx"
    ActiveWorkbook.Close

もともと。２０１９以前のエクセルで作成されたシートを
２０１９に取り込み、加工しました。
２０１９上では、きれいに表示されております。

それを、コピーしたら何故かフォントが「游ゴシック」になるので、
（仕様？）指定範囲を”ＭＳ　Ｐゴシック”に変えております。

元となるエクセル上でシートをコピーした場合は、印刷は問題ないのですが、
それを新しいブックにコピーすると発生します。
新しいブックに移動したとき、何かおまじないなどが必要なのかなと調べて
おりますが、解決策が見当たらず・・・

検索ワードもわからず、解決方法もわかりません。

何かヒント・キーワード、または「それは無理」など、ご情報を
頂けると幸いです。

Answer 1

印刷範囲が変更される現象は、昔からあるExcelの仕様です。
Excelは、表計算ソフトであって、ワープロソフトではない為です。

この方法で解決できるかは、不明ですが、一旦、ワークシートをコピーした後に、
フォントスタイルを変更するやり方です。

プリンターが変わっただけでも、このような現象が発生します。

ただ、図のようなやり方は、はっきり言って、スマートではありません。
ページ設定のマクロをゴリゴリ書いた方が、良いと思います。

回答としては、仕様となるので、諦めるポイントです。

Comments

[tsuru0508]

kai_keitai 様
ご回答ありがとうございます。仕様なら仕方ありません。
すっきりしました。諦めます。