[[20191212213346]]　『プルダウンと印刷範囲の連動』（ｔａｋａｓｕ）　ページの最後に飛ぶ

『プルダウンと印刷範囲の連動』（ｔａｋａｓｕ）

プルダウンの選択肢ごとに印刷範囲を連動させる方法があれば知りたいです。

＜使用 Excel：Excel2016、使用 OS：unknown ＞

プルダウンの選択肢に印刷範囲を設定しておき、
Changeイベントマクロで、PrintAreaにそれをセットすると言った方法が考えられます。
マクロはお呼びではなければ失礼。
（γ） 2019/12/12(木) 22:42

 ユーザー設定のビューを使ってそれぞれ印刷範囲を設定しておいて
 ユーザー設定のビューの定義をプルダウンで選べるコマンドボタンがあるので
 その他のコマンドボタンから探して配置しておくというのは？

 具体的な内容がわからないのでざっくりとだけ。
 プルダウンで何を選ぶのかもわかりませんし。
（コナミ） 2019/12/13(金) 08:09

 一例です。
 1.A1セルに入力規則の「リスト」で「元の値」に下記を設定。
 　印刷範囲1,印刷範囲2,印刷範囲3

 2.VBAのThisWorkbookモジュールに下記をコピペ。
 Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet
        Select Case .Range("A1").Value
            Case "印刷範囲1"
                .PageSetup.PrintArea = "B2:E13"
            Case "印刷範囲2"
                .PageSetup.PrintArea = "F2:I13"
            Case "印刷範囲3"
                .PageSetup.PrintArea = "J2:M13"
            Case Else
                .PageSetup.PrintArea = False
        End Select
    End With
 End Sub

 3.A1セルからプルダウンで選択してから印刷実行。

 設定する印刷範囲の数や範囲は任意で変更してください。
（ろっくん） 2019/12/13(金) 08:32

コメント返信：

[ 一覧(最新更新順) ]

[[20191212213346]] 『プルダウンと印刷範囲の連動』（ｔａｋａｓｕ） ページの最後に飛ぶ

[[20191212213346]]　『プルダウンと印刷範囲の連動』（ｔａｋａｓｕ）　ページの最後に飛ぶ