[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『VBAで印刷を2in1で印刷できますか?』(YAN)
いつもお世話になっております。
よろしくお願いします。
sheet1(リスト一覧)の内容を
ひな形となる sheet2(個別シート)へあてはめ
印刷するコードがあります。
●sheet1(リスト一覧)
●sheet2(個別シート) ひな形
品番2/52644 品名/ABCD121 品番3/15485
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 >
(マナ) 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.