[[20250306153129]]　『印刷開始ページ』（さとみ）　ページの最後に飛ぶ

『印刷開始ページ』（さとみ）

このコード印刷開始をはじめから1を入力したいのですが私には書き換えられませんのでお願いします。
Dim 印刷枚数 As Long

    Dim 開始ページ As Long
    Dim 終了ページ As Long
    印刷枚数 = Application.InputBox("希望の印刷枚数を入力して下さい！入力後Enterを押してください", Type:=1)
        If 印刷枚数 = 0 Then Exit Sub
    開始ページ = Application.InputBox("印刷開始ページを入力して下さい！入力後Enter押してください", Type:=1)
        If 開始ページ = 0 Then Exit Sub
    終了ページ = Application.InputBox("印刷終了ページを入力して下さい！入力後Enterを押してください", Type:=1)
        If 終了ページ = 0 Then Exit Sub
    ActiveSheet.PageSetup.Order = xlOverThenDown
    ActiveWindow.SelectedSheets.PrintOut _
        From:=開始ページ, To:=終了ページ, Copies:=印刷枚数, Collate:=True

End Sub

＜使用 Excel：Excel2021、使用 OS：Windows11 ＞

開始ページ = 1

（たぶん） 2025/03/06(木) 15:38:37

 開始ページ = Application.InputBox("印刷開始ページを入力して下さい！入力後Enter押してください", Default:=1, Type:=1)
                                                                                                ----------
                                                                                                  ↑これ追加
（とおりすがり） 2025/03/06(木) 15:41:09

エラーになっちゃいました？？
（さとみ） 2025/03/06(木) 15:57:12

 エラーがでたときは、エラーの出た場所(そのコード)、エラー番号、エラーメッセージを書いてください。

 じゃないと誰も何もわかりません
（´・ω・`） 2025/03/06(木) 16:48:25

＞エラーになっちゃいました？？
の「エラーになっちゃいました」の後の「？？」は何？
誰に聞いとんねん？？

（ひろし） 2025/03/06(木) 16:54:13

コメント返信：

[ 一覧(最新更新順) ]

[[20250306153129]] 『印刷開始ページ』（さとみ） ページの最後に飛ぶ

[[20250306153129]]　『印刷開始ページ』（さとみ）　ページの最後に飛ぶ