差し込み印刷

Sub 差し込み印刷4()

'自動で印刷する

Dim n
n = 2

    Do Until Sheets("印刷対象").Cells(n, 1).Value = ""

        '日付
        Sheets("印刷用").Range("F4").Value = Sheets("印刷対象").Cells(n, 1).Value
        
        '売上
        Sheets("印刷用").Range("D6").Value = Sheets("印刷対象").Cells(n, 2).Value
        
        '担当者
        Sheets("印刷用").Range("F9").Value = Sheets("印刷対象").Cells(n, 3).Value
        
        '印刷
        Sheets("印刷用").PrintOut
        
        n = n + 1
        
    Loop

End Sub