VBAでの印刷設定について

Question

VBAで印刷の設定を【作業中のブックを印刷】から【ブック全体を印刷】に変更したいです。
調べてはみましたが、印刷を前提にしているコードが大変多く、こちらに質問させていただいた次第です。
下記のコードは、1行目のタイトルと最初の行以外のページを作成するものです。
何行あるか取得→シート2をコピー→一部変更までの流れは確認したところ出来ています。
一応、各シートを1ページとして印刷することもできていますが、このまま印刷ボタンを手動で押すとアクティブなシートのみが印刷されています。

理想としては、印刷ボタンさえ押せばすべてのシートが印刷される状態になるのを想定しています。
印刷はせずに設定変更だけする良い方法はありますか？
もし不可能なのであれば不可能だと言っていただきたいです。

Sub シート作成()
Dim num As Integer
Dim i As Integer

Application.ScreenUpdating = False
Application.DisplayAlerts = False
num = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row

With Sheets(1).PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
End With

With Sheets(2).PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
End With

For i = 3 To num
Worksheets("Sheet2").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Sheet" & i

ActiveSheet.Range("B4：B11").NumberFormatLocal = "G/標準"
ActiveSheet.Range("B4") = Sheets("Sheet1").Range("B" & i) & " ご担当者様"
ActiveSheet.Range("B4").Font.Size = 20
ActiveSheet.Range("B6") = "=Sheet1!A" & i
ActiveSheet.Range("B9") = "=Sheet1!C" & i
ActiveSheet.Range("B11") = "=Sheet1!D" & i
Range("B4:B11").Font.FontStyle = "太字"

Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Answer 1

私もよくわかってないのですみませんが、印刷をPrinOutメソッドを使って行っていらっしゃるものと仮定しまして・・・

ヘルプやオブジェクトブラウザで見てみましたら、PrinOutメソッドは・・・、

親オブジェクトが
・Worksheet
のものもあれば、
・Workbook
のものもありました。

なので、例えばですが（ご希望のかたちになるかはわかりませんが）、「ActiveWorkbook.PrintOut」で印刷してみてはいかがでしょうか？
この場合、ワークシートだけでなくグラフシートも多分印刷されてしまうと思いますが・・・。

オブジェクトブラウザで調べてみましたら、PrinOutメソッドはそのほか
・Chartオブジェクト（グラフシート）
・Chartsコレクション（グラフシートたち）
・Rangeオブジェクト（多分ですが、「選択された範囲」とかいうヤツでは？）
・Sheetsコレクション（グラフシートやワークシートたち）
・Worksheetsコレクション（ワークシートたち）
も保持・保有・内包していました。

なので、
ActiveWorkbook.Sheets.PrintOut （ワークシートもグラフシートも）
ActiveWorkbook.WorkSheets.PrintOut （ワークシートたちのみ）
でも、すべてのワークシートが印刷されると思います。

いちおうこちらのテストでは
ActiveWorkbook.PrintOut
ActiveWorkbook.WorkSheets.PrintOut
ActiveWorkbook.Sheets.PrintOut
と（引数なしで）書くだけで、すべてのワークシートの一括印刷が一応はできました。
イミディエイトウィンドウからも実行できました。

「メソッド」は、同じ名前のものでも、親オブジェクト異なるものが結構ありますので、オブジェクトブラウザの「完全一致」で調べるといいと思います。
「今自分が扱っている親オブジェクトと別の親オブジェクトが無いか？」を調べるのに役立ちます。
Open、Add、Copy、などのメソッドも同様に、名前は同じでも親オブジェクトが異なるケースがたくさんあります。
ご参考程度に、一度、オブジェクトブラウザでメソッドを色々と検索してみるとよいと思います。

質問者様のご質問と関係のない話でしたら無視してお許しください。
すみません。

Comments

[komugi3333]

「印刷はせずに設定変更だけする良い方法はありますか？」
ということでしたね。
意味のない回答をしてしまい、本当に申し訳ございませんでした。

[porpora_0316]

いえ、ありがとうございました。
もしもそのような機能を付ける場合になったらこちらのご回答を参考にさせていただきます。

Answer 2

はっきりとできませんと断言はできませんが、少し調べてみた感じ見当たらず、自分でボタンを作った方が早そうに感じました。

ボタンフォームで印刷ボタンを作って、ボタンフォーム押下→全シート印刷するマクロ実行 とするのはいかがでしょうか。

Comments

[torisan]

『ファイル』⇒『オプション』⇒『クイックアクセスツールバー』から、
　マクロそのものをツールバーに登録して見た目的には変わらないようにも出来ます。
ただし当然、すべてのエクセルを開いた場合に適用されるので、運用と相談する必要はありますが。

Answer 3

どうやら印刷せずに設定変更するのは不可能の様です。諦めることにしました。
ご回答、ありがとうございました。とりあえず最初に回答してくださった方をベストアンサーにさせていただきます。