[[20200627162614]]　『指定したページまで印刷する方法』（桜新町）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『指定したページまで印刷する方法』（桜新町）

Sub macro1()

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=2, Collate _
        :=True, IgnorePrintAreas:=False
End Sub
上記を実行すれば開いているシートの1〜２ページを印刷できますが、これを任意のページ数を入力しそのページまで印刷するようにしたいと思っています。
そこで1-2,1-3,1-4…と印刷範囲変えたコードを100通り作ったのですが、操作ミスが起こりやすく別の方法を探しています。
理想は入力した数字（ページ数）までを印刷するように組み上げたいのですが初歩的なコードしか分からないのでどうする事も出来ません。
周囲に分かる人がいれば尋ねることもできますがVBAに詳しい人もおらず、こちらで相談させていただきました。
お手数をお掛けしますがお教えいただければと思います。

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

---

インターネットで探していたところ類似するサンプルコードを見つけました。
今回の質問は申し訳ありませんが取消しさせていただきます。
失礼しました。
（桜新町） 2020/06/27(土) 17:28

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.