□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 印刷した時に１部のみプリントアウトするコード変更について | |
|---|---|
[196589] 印刷した時に１部のみプリントアウトするコード変更について - ■親トピック/記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/05/09(23:26)) □U R L/ ネットにありました下記コードを実行すると 下記コードでは 印刷するとページ数分複数部プリントアウトしてしまいます。 １部のみプリントアウトするコード変更について どなたか 教えて頂けると幸いです。 よろしくお願い致します。 Ｓｕｂ ＮｕｍｂｅｒＰｒｉｎｔ（） Ｄｉｍ ｉｄｘ Ａｓ Ｉｎｔｅｇｅｒ Ｄｉｍ ｆｒｍＰａｇｅ， ｔｏＰａｇｅ ｆｒｍＰａｇｅ ＝ Ａｐｐｌｉｃａｔｉｏｎ．ＩｎｐｕｔＢｏｘ（＂連番を挿入して印刷します＂ ＆ Ｃｈｒ（１３） ＿ ＆ ＂開始番号を入力してください＂， Ｔｙｐｅ：＝１） ｔｏＰａｇｅ ＝ Ａｐｐｌｉｃａｔｉｏｎ．ＩｎｐｕｔＢｏｘ（＂終了番号を入力してください＂， Ｔｙｐｅ：＝１） Ｉｆ ｆｒｍＰａｇｅ ＞ ０ Ａｎｄ ｔｏＰａｇｅ ＞＝ ｆｒｍＰａｇｅ Ｔｈｅｎ Ｆｏｒ ｉｄｘ ＝ ｆｒｍＰａｇｅ Ｔｏ ｔｏＰａｇｅ Ｒａｎｇｅ（＂Ｅ２＂）．Ｖａｌｕｅ ＝ ｉｄｘ ＡｃｔｉｖｅＳｈｅｅｔ．ＰｒｉｎｔＯｕｔ Ｎｅｘｔ ｉｄｘ Ｅｌｓｅ ＭｓｇＢｏｘ ＂開始番号、終了番号が不適切です。印刷は行いません＂ Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ ++++++++++++++++++++ OS ⇒Windows 11 Version⇒Excel 2019 ++++++++++++++++++++ | |
[196590] Re[1]: 印刷した時に１部のみプリントアウトするコード変更について - ■記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/05/10(21:06)) □U R L/ 一部コードが抜けていました。 すみません よろしくお願いいたします。 Ｄｉｍ ｉｄｘ Ａｓ Ｉｎｔｅｇｅｒ Ｄｉｍ ｆｒｍＰａｇｅ， ｔｏＰａｇｅ ｆｒｍＰａｇｅ ＝ Ａｐｐｌｉｃａｔｉｏｎ．ＩｎｐｕｔＢｏｘ（＂連番を挿入して印刷します＂ ＆ Ｃｈｒ（１３） ＿ ＆ ＂開始番号を入力してください＂， Ｔｙｐｅ：＝１） ｔｏＰａｇｅ ＝ Ａｐｐｌｉｃａｔｉｏｎ．ＩｎｐｕｔＢｏｘ（＂終了番号を入力してください＂， Ｔｙｐｅ：＝１） Ｉｆ ｆｒｍＰａｇｅ ＞ ０ Ａｎｄ ｔｏＰａｇｅ ＞＝ ｆｒｍＰａｇｅ Ｔｈｅｎ Ｆｏｒ ｉｄｘ ＝ ｔｏＰａｇｅ Ｔｏ ｆｒｍＰａｇｅ Ｓｔｅｐ －１ Ｒａｎｇｅ（＂Ｅ２＂）．Ｖａｌｕｅ ＝ ｉｄｘ Ｒａｎｇｅ（＂ＡＡ１＂）．Ｖａｌｕｅ ＝ ｉｄｘ ＡｃｔｉｖｅＳｈｅｅｔ．ＰｒｉｎｔＯｕｔ Ｎｅｘｔ ｉｄｘ Ｅｌｓｅ ＭｓｇＢｏｘ ＂開始番号、終了番号が不適切です。印刷は行いません＂ Ｅｎｄ Ｉｆ ++++++++++++++++++++ OS ⇒Windows 11 Version⇒Excel 2019 ++++++++++++++++++++ | |