excel批量按模板打印 vba经典

Public a As String, b As String, c As String, d As String, e As String, f As String, g As String    '定义公共变量

 

Public h As String, i As String, j As String, k As String, l As String, m As String, LastRow As Integer

Sub 按钮1_Click()

    Sheets("sheet1").Select    '选择Sheet1工作表

    LastRow = Cells(Rows.Count, 1).End(xlUp).Row    '求出表格内容的最后一行行号

    For x = 2 To LastRow    '从第二行的内容开始 到最后一行

        a = Cells(x, 1)   '合同编号客户名称 将对应行的内容读入变量中

        b = Cells(x, 2)   '合同编号 Cells(x,2)的意思是第x行第2列的单元格内容

        c = Cells(x, 3)   '客户名称 a~m是变量，存放x行中各单元格的资料

        d = Cells(x, 4)   '区域经理

        e = Cells(x, 5)   '代理商

        f = Cells(x, 6)   '函件单号

        g = Cells(x, 7)   '是否回函

        h = Cells(x, 8)   '合同总价

        i = Cells(x, 9)   '到款金额

        j = Cells(x, 10)  '合同余款

        k = Cells(x, 11)  '截止开票金额

        l = Cells(x, 12)  '开票金额

        m = Cells(x, 13)  '求和项

         

        Sheets("打印").Select    '

        Cells(1, 1).Select    '

        [J6] = a    '合同编号客户名称 将变量内容填入对应单元格的中

        [J2] = b    '方括号中内容就是单元格名称，如[J2]就是J2单元格

        [K2] = c    ’这里仅作示范，请你根据变量的内容要填入打印表格中的什么地方你自行修改

        [E3] = d

        [C5] = e

        [E5] = f

        [F5] = g

        [H5] = h

        [J5] = i

        [D7] = j

        [E7] = k

        [F7] = l

        [G7] = m

        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False    '打印指定范围内容，打印一份

    Next    '处理下一行

End Sub