マクロの連続印刷について教えてください

データシートには連番・氏名・プラン（A～C）の記載があります。
現在、手作業でプランごとにデータをまとめてからマクロで一括印刷するようにしています。
できればマクロで条件に合う印刷シートを判断し、最後のデータまで連続印刷設定をしたいのですがうまくできません。どなたかお知恵をお借りできますでしょうか？よろしくお願いいたします。

Sub 連続印刷()
Dim i As Integer
Dim LastRow As Integer

Worksheets("プランA").Select

With Worksheets("データ")
LastRow = .Range("A1").End(xlDown).Row
For i = 2 To LastRow
Range("B3").Value = .Range("A" & i).Value
ActiveSheet.PrintPreview
Next
End With
End Sub

No.1 回答者： _raven_ 回答日時： 2019/01/13 17:22

文章を読ませてもらって考えた、「私が作るなら・・・こうする」というイメージ

＜データ１＞シート・・・必要な個人データが打ち込んである。
１．Aさん・・・Aプラン
２．Bさん・・・Bプラン
３．Cさん・・・Cプラン
４．Dさん・・・Aプラン
５．Eさん・・・Bプラン

＜データ２＞シート・・・各プランの詳細が打ち込んである。

＜印刷用＞シート・・・VLOOKUP関数などで、ひな型に＜データ１＞＜データ2＞のデータが飛んでくる。
データを表示するひな形が作られている
変数に応じて、表示が変わる。

上記のような形であれば、連番で指定する連続印刷マクロを設定するだけでOKだと思います。

この回答へのお礼

ありがとうございます。
そうですね。その方が良さそうです。
フォーム作り直してみます。ありがとうございました。

お礼日時：2019/01/13 22:18