'【VBA】【請求書自動印刷システム】(2日目　中間ソース１)

Sub my_print_seikyusyo()
    Dim count As Integer

    count = 1

    Do While Worksheets("sheet1").Cells(count + 1, 1).Value <> ""
        If Worksheets("sheet1").Cells(count + 1, 1).Value = "合計" Then
            Exit Do
        End If
        
        Worksheets("sheet2").Range("A2").Value = _
            Worksheets("sheet1").Cells(count + 1, 1).Value
        Worksheets("sheet2").Range("A3").Value = _
            Worksheets("sheet1").Cells(count + 1, 2).Value

        Worksheets("sheet2").PrintPreview
    
        count = count + 1
    Loop
End Sub