VBA　プリンターの設定値を変数に保存？

VBAにてプリンター印刷をしています

やりたいことは、プレビューと印刷の設定を変数に入れたいのですが入れ方が解らず
Setでやってみたけど、コンパイルエラーでした。

コードの一部を添付します
実際には複数個所か切り替えたい場所があるのでこの設定があると楽なのですが
こういう設定のやり方ってありますか？？

VBA
1Set AP = ActiveSheet.PrintPreview
2'Set AP = ActiveSheet.PrintOut
3 '１ページ印刷設定
4With ActiveSheet.PageSetup
5        .Zoom = False
6        .FitToPagesWide = 1
7        .FitToPagesTall = 1
8        .PaperSize = xlPaperB4
9’印刷またはプレビュー
10AP
11    End With

追記

言葉足らずで申し訳ない
印刷機能のデバッグで実際には印刷したくない時にプレビューで確認したいので
現状
'ActiveSheet.PrintPreview
ActiveSheet.PrintOut
コメントアウトで対応しており複数個所変更するのが手間に思えてきたので・・・

IFで制御すれば良いだけかもしれないですが
他に簡単な切り替え方法は無いものか？と思い質問させて頂きました。

行動規範の内容に同意します

回答2件

ベストアンサー

testPrintを呼び出すようにすれば、一か所変更だけですみますね。

ざっくりですが。
testを実行すると、testPrintに指定された値の通りページ設定が行われます。
プレビューか印刷かも指定できます。

VBA
1Sub test()
2
3Call testPrint(False, 1, 1, xlPaperB4)
4Call testPrint(True, 2, 1, xlPaperA4)
5
6End Sub
7
8
9Sub testPrint(zo, pw, pt, si)
10
11With ActiveSheet.PageSetup
12    .Zoom = zo
13    .FitToPagesWide = pw
14    .FitToPagesTall = pt
15    .PaperSize = si
16End With
17
18    ActiveSheet.PrintPreview
19'    ActiveSheet.PrintOut
20
21End Sub

投稿2020/09/18 04:49

編集2020/09/18 05:18

radames1000

総合スコア1923

プレビューと印刷の設定を変数に入れたい

印刷の設定とプレビューをしたい、ってことですね。
日本語は正しく。

PrintPreviewはそれ自体が命令になっているので、変数に入れる必要はありません。
また基本的に設定してからプレビューする流れになるはずです。
以下のような感じにしてみてください。

VBA
1'１ページ印刷設定
2With ActiveSheet.PageSetup
3    .Zoom = False
4    .FitToPagesWide = 1
5    .FitToPagesTall = 1
6    .PaperSize = xlPaperB4
7End With
8
9'印刷またはプレビュー
10 ActiveSheet.PrintPreview