ページにデータを入力して印刷し、列から次のページに移動するマクロを作成できるかどうか疑問に思っていました。
番号は Sheet2、C2 に、名前は C4 に表示されます。これはテンプレートなので、空を削除してから、シート 1 のリストから次の番号と名前を更新する必要があります。
唯一のことは、開始セルを選択できるように設定できるか、または行内のすべてを一度に印刷する必要があるかということです。今日は 20 枚だけ印刷して、明日は 50 枚印刷したいとします。
現時点では手動で入力することが多いので、どんな助けも素晴らしいでしょう。
以下の例 (名前が変更されています) では、各フォルダーに配置するために印刷する必要がある最大 500 個の名前を列に含めることができます。以下に番号を正しく入力してください。シート1にセルD2の名前も含める方法がわかりません
Sub PrintLoop()
Dim c As Range, LR As Long
Application.ScreenUpdating = False
LR = Sheets("sheet1").Range("C" & Rows.Count).End(xlUp).Row
For Each c In Sheets("sheet1").Range("C2:C" & LR)
Sheets("sheet2").Range("C2").Value = c.Value
Sheets("sheet2").PrintPreview
Next c
Application.ScreenUpdating = True
End Sub