excel批量打印宏怎么设置

Question

要打印sheet1中的内容，这里面的内容是用D2这个单元格的值通过VLOOKUP公式取的sheet2中的内容。现在每次输入一下D2的值打印一次太费时费力了，需要打印的值都再sheet3的A列里。
能不能设置一下批量打印，在sheet1中 E1输入A1，E2输入A5，然后sheet3中A1到A5的值就自动匹配到sheet1中的D2，并批量打印出来

Answer 1

在sheet1中 E1输入1，E2输入5

Sub s()
    Sheet1.Select
    For i = [e1] To [e2]
        [d2] = Sheet3.Cells(i, 1)
        ActiveSheet.PrintOut Copies:=1
    Next
End Sub