excel vba实现模板批量打印

Sub 批量打印()
    r = Sheet1.[a65536].End(3).Row
    arr = Sheet1.Range("a1:f" & r)
    With Sheet2
        For i = 2 To r
            .[b1] = arr(i, 1)
            .[b2] = arr(i, 2)
            .[b3] = arr(i, 3)
            .[b4] = arr(i, 4)
            .PrintPreview
        Next
    End With
End Sub

标签：模板excel