Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1053 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【76578】Sheet1のデータを1行ごとに印刷する方法 oak 15/1/19(月) 15:52 質問[未読]
【76579】Re:Sheet1のデータを1行ごとに印刷する方法 独覚 15/1/19(月) 16:10 発言[未読]
【76580】Re:Sheet1のデータを1行ごとに印刷する方法 oak 15/1/19(月) 17:31 発言[未読]
【76584】Re:Sheet1のデータを1行ごとに印刷する方法 oak 15/1/20(火) 13:35 お礼[未読]
【76578】Sheet1のデータを1行ごとに印刷する方法
質問  oak  - 15/1/19(月) 15:52 -
引用なし
パスワード
   お世話になっております。
大変初心者の質問で恐縮なのですが、Sheet1に作った表を1行ずつ印刷していきたいと考えています。

Excel2010使用で、Sheet1のA列に品番、B列に品名、C列に色名を入力してあるデータで、行は500行ほどあります。
この表を各行ごとに倉庫の看板として印刷することになったため、一気に印刷できる方法がないかと思い、マクロを作ってみましたがうまく動きません。
コードをご教示いただけないでしょうか？

表はSheet1に以下のように作ってあります

Sheet1
　 　A 　 　B　　　C
1 品番　 品名　 色名
2 3501　 ﾘｭｯｸ　　ｸﾛ
3 3502　 ﾅｯﾌﾟ　　ﾋﾟﾝｸ
4 3503　 ﾘｭｯｸ　　ｱｶ

このようなデータが500行あります。
この表を、例えば以下のような看板として1枚ずつ印刷したいです。

　 A
1 3501
2 ﾘｭｯｸ
3 ｸﾛ

これを500行分連続して行うコードはどのようにしたらよいでしょうか？
恐れ入りますが、どなたかご教示いただければ幸いです。
よろしくお願いいたします。
【76579】Re:Sheet1のデータを1行ごとに印刷する方...
発言  独覚  - 15/1/19(月) 16:10 -
引用なし
パスワード
   ▼oak さん：
ワードを使って差し込み印刷を行ったらどうかな？
【76580】Re:Sheet1のデータを1行ごとに印刷する方...
発言  oak  - 15/1/19(月) 17:31 -
引用なし
パスワード
   ▼独覚 様
>ワードを使って差し込み印刷を行ったらどうかな？

なるほど、マクロにばかりに頭が行って差し込み印刷を考え付きませんでした。
早速やってみます。ありがとうございます。

もし無理なようでしたらまた質問させていただきます。
【76584】Re:Sheet1のデータを1行ごとに印刷する方...
お礼  oak  - 15/1/20(火) 13:35 -
引用なし
パスワード
   ▼独覚 様
差し込み印刷で無事データを印刷できました。
マクロにばかり気が行って、差し込み印刷に気付かなかったのはお恥ずかしい限りです。
ご助言ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1053 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free