クラス人数分、個別に異なる文書を自動で印刷で出せるように
出席番号に連動したマクロを初めて組みました。
動作確認では問題なく全員分印刷されるのですが
ボタンを作成し押すと最初の1人分しか印刷されません。
どうしてなのでしょうか?
エラー表示は出ません。
以下コードです。
Sub 一括印刷処理()
Dim maxRow As Long
maxRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim i As Long
For i = 1 To maxRow
Worksheets("クラス").Range("I2").Value = i
Worksheets("クラス").Copy After:=ActiveSheet
ActiveSheet.Name = "印刷用" & i
Next
Application.DisplayAlerts = False
For i = 1 To maxRow
Worksheets("印刷用" & i).PrintOut
Worksheets("印刷用" & i).Delete
Next i
Application.DisplayAlerts = True
End Sub
御指導の程、よろしくお願いします。
☆追記☆
環境がわかりずらいので追記します。
Excelで個人データをVLOOKUPで紐付けて文書を作成しています。
パソコンの動作環境はWindows 10 ProでExcel2016です。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/07/27 04:04
2022/07/27 04:41
2022/07/27 04:59
2022/07/27 05:18
2022/07/27 05:36