選択したデータだけ印刷するには？

質問

例えばシート１のＢ列に顧客番号・Ｃ列に住所・Ｄ列に氏名のデータが入っていて、選択した顧客番号のデータのみを、タッグシールに印刷したいのです。
印刷したいデータの選択は、Ａ列に顧客番号の横にチェックを直接入力します。
タッグシールはＡ４に１０枚あります。
初心者で、本を読んでみたりしたのですが、どうしても分かりません。
具体的に教えていただくと助かります。よろしくおねがいします。

回答No.2

o_w_nakazaki

マクロを使用しても良いということですので、
質問の内容に基づき、以下にサンプルを転載します。

必要な部分を抜き出して使用してください。

Sub Test()

Dim BeginRow As Long '繰返処理の開始値
Dim LimitRow As Long '繰返処理の終了値
Dim CountRow As Long '作業用

BeginRow = 1 '開始値を指定
LimitRow = Sheets("Sheet1").Cells(65536, 1).End(xlUp).Row '終了値を求める

Sheets("Sheet2").Select 'Sheet2を表示
Sheets("Sheet2").Cells.ClearContents 'Sheet2の入力を消去する
Sheets("Sheet2").Cells(1, 1).Activate 'Sheet2の開始セルを選択

For CountRow = BeginRow To LimitRow '繰返処理開始
If Sheets("Sheet1").Cells(CountRow, 1).Value <> "" Then 'Sheet1の各行A列に入力があれば、
Cells(ActiveCell.Row, 1).Value = Sheets("Sheet1").Cells(CountRow, 1)
Cells(ActiveCell.Row, 2).Value = Sheets("Sheet1").Cells(CountRow, 2)
Cells(ActiveCell.Row, 3).Value = Sheets("Sheet1").Cells(CountRow, 3)
Cells(ActiveCell.Row, 4).Value = Sheets("Sheet1").Cells(CountRow, 4)

Cells(ActiveCell.Row + 1, 1).Activate

End If
Next

Sheets("Sheet2").Cells(1, 1).Activate
ActiveWindow.SelectedSheets.PrintPreview 'プレビュー
'ActiveWindow.SelectedSheets.PrintOut 'プレビュー

End Sub

ソースに不具合とございましたら申し訳ございません。

お礼

ありがとうございました。
「LimitRow = Sheets("Sheet1").Cells(65536, 1).End(xlUp).Row '終了値を求める」というのが、すごく便利でした。