Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
55506 / 76732 ←次へ　｜　前へ→
【25999】印刷範囲の複数指定について
質問  にっさん  - 05/6/21(火) 12:17 -
引用なし
パスワード
   表の中のコードを読み込み、同じコードごとに印刷範囲を指定したいのです。
例えば、
　1行目　A
　2行目　A
　3行目　B
　4行目　C
　5行目　C
　6行目　C
　7行目　D
なら、1，2行目、3行目、4，5，6行目、7行目で分けたいという感じです。

ActiveSheet.PageSetup.PrintArea = ("A1:X2")
ActiveSheet.PageSetup.PrintArea = ("A3:X3")
ActiveSheet.PageSetup.PrintArea = ("A4:X6")
ActiveSheet.PageSetup.PrintArea = ("A7:X7")

とすると、最後の7行目だけしか範囲指定されません。
かといって

ActiveSheet.PageSetup.PrintArea = ("A1:X2,A3:X3,A4:X6,…

では件数が少ない時はいいですが多いときにはやってられません。
ちなみに今回のデータは5万件くらいで1000種類位のコードがあります。
なにかほかにいい方法はないでしょうか？
よろしくお願いします。
0 hits
▼ 【25999】印刷範囲の複数指定について にっさん 05/6/21(火) 12:17 質問≪
【26001】Re:印刷範囲の複数指定について IROC 05/6/21(火) 12:30 回答
【26003】Re:印刷範囲の複数指定について りん 05/6/21(火) 14:05 回答
【26004】Re:印刷範囲の複数指定について だるま 05/6/21(火) 14:33 回答
【26025】Re:印刷範囲の複数指定について にっさん 05/6/22(水) 10:08 発言
【26043】Re:印刷範囲の複数指定について にっさん 05/6/22(水) 14:48 お礼
【26044】Re:印刷範囲の複数指定について りん 05/6/22(水) 14:55 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
55506 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free