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

相关

标签