新人跪求excel批量打印工作表，工作表中数据有变化

yiyubushe

想批量打印文档中6个（普通混凝土单元-混凝土外观质量检查工序）工作表，工作表中单元工程名称、部位数据需要根据SHEET1中I1-I10进行依次变化，我现在设置的是后面表格单元工程名称、部位单元格＝第一个工作表的单元工程名称、部位单元格，用数据有效性，但是不能批量打印，请教老师能否给一个代码能实现批量打印。谢谢。

painsv0401

Sub 批量打印()
Dim i%, K%
    For K = 1 To Sheets(7).[I65535].End(xlUp).Row
        For i = 1 To Worksheets.Count - 1
        Worksheets(i).Cells.Find("单元工程名称、部位").Offset(0, 1).FormulaR1C1 = "=OFFSET(Sheet1!R1C1," & K - 1 & ",8,1,1)"
        Worksheets(i).PrintOut
        Next
    Next
End Sub