VBA エクセルでボタンを押すだけで印刷される用紙をA3とA4で切り替える方法を探してます。

Question

###VBA　エクセルでボタンを押すだけで印刷される用紙をA3とA4で切り替える方法を探してます。

エクセル　VBAのことはあまり知らないのですが
一つのボタンを押すだけで印刷用紙をA3とA4切り替える方法はありませんでしょうか？

２つのボタンを設定して切り替える方法はどうにかなったのですがこれが一つのほうが便利だなとおもいまして知恵を探しています。よろしくお願いします。

Comments

[YT0014]

まず「２つのボタンを設定して切り替える方法」のVBAコードをご提示ください。
なお、ご自分で作成されたのではない場合、入手経路(URLなど)もご提示ください。

Answer 1

ひとつのボタンで用紙を切り替える運用イメージがわかりません。

ボタンを押した後に用紙選択のダイアログを表示するイメージでしょうか？
それであれば用紙毎のボタンでも変わりません。

複数のシートがあり、シート毎に用紙サイズが異なるのでしょうか？

Answer 2

こんな感じのVBAマクロをボタンに割り当てるのはどうでしょうか。

Sub A3orA4()
    With ActiveCell.Worksheet.PageSetup
        .PaperSize = IIf(.PaperSize = xlPaperA3, xlPaperA4, xlPaperA3)
    End With
End Sub