[[20160624163552]] 『VBAで印刷を2in1で印刷できますか?』(YAN) ページの最後に飛ぶ

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

 

『VBAで印刷を2in1で印刷できますか?』(YAN)

いつもお世話になっております。
よろしくお願いします。

sheet1(リスト一覧)の内容を
ひな形となる sheet2(個別シート)へあてはめ
印刷するコードがあります。

●sheet1(リスト一覧)


番号 品名    品番1   品番2   品番3

 1  ABCD121  124596  52644  15485
 2  ABPD122  D34596  33344  54854
 3  KKPD128  L85947  29345  85854 

●sheet2(個別シート) ひな形


番号 1     品番1/124596
                  品番2/52644           
品名/ABCD121   品番3/15485      

******************************************

Sub 個別シート印刷_Click()

Worksheets("リスト一覧").Activate
Range("A2").Select

   Do
   ActiveCell.Offset(1, 0).Select
   If ActiveCell.EntireRow.Hidden = False Then

       With Worksheets("個別シート")  
         .Range("A1").Value = ActiveCell.Offset(0, 0).Value
         .Range("A3").Value = ActiveCell.Offset(0, 1).Value
         .Range("D1").Value = ActiveCell.Offset(0, 2).Value
         .Range("D2").Value = ActiveCell.Offset(0, 3).Value
         .Range("D3").Value = ActiveCell.Offset(0, 4).Value

           .PrintOut
      End With
   End If
   Loop

End Sub

******************************************

これは1枚1枚印刷されます。
希望は2in1で印刷したいのです。
”複数シートを2in1で印刷”の質問は見かけるのですが
この場合はどうすれば2in1で印刷できるでしょうか?

ご教授願います。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


2in1用のひな形シートを作成してしまうのが簡単だと思います。
ところで、現在のコードで問題はでていませんか?

(マナ) 2016/06/24(金) 21:05


マナ様
ご返事遅れまして申し訳ありません。

>>2in1用のひな形シートを作成してしまうのが簡単だと思います。
  そうですね!2in1用ひな形で作成してみます。
>>ところで、現在のコードで問題はでていませんか?
  一応問題なくできていますが・・・
  おかしな点ありましたら教えていただきたいです!

(YAN) 2016/06/29(水) 13:37


>おかしな点ありましたら

今のままだと、データがなくなっても延々と印刷を繰り返しませんか。

Do...Loopから抜ける条件が必要な気がしました。
例えば、こんな感じで。
Activecell.value="" then Exit Do

(マナ) 2016/06/29(水) 20:02


マナ様
教えていただきありがとうございます!
もう一度確認して確かめてみます!

(YAN) 2016/06/30(木) 11:37


コメント返信:

[ 一覧(最新更新順) ]


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