Question

求用EXCEL宏批量打印的代码 。

把sheet1中的数据用VLOOKUP引用到‘’打印‘’表格中去， 用以下函数应用 =VLOOKUP(P2,Sheet1!A:C,3,FALSE) ，P2与A2相对应。怎么样才能依次把表中的几百条信息，引用到打印表格中去，然后依次打印。跪求宏代码并操作步骤，本人比较小白还望高手一步步指教。





Answer 1

你是要 （1）将Sheet1的各行内容全部逐一引入“打印”表中，打印。

还是（2）根据P2的内容，到Sheet1中打出 对应在行的内容，引入“打印”表中，打印。

我大概以（1）的要求写个粗略的程序，你修改后调试执行吧：

1、先选择“打印”表，设定打印区域，请选择你要打印的区域，在页面布局-打印区域-设置打印区域，这样区域外的内容不会被打印。

2、在打印区域外，用菜单-开发工具-插入-按钮，按内容为“打印全部表格”，

3、在宏-编辑中，选择“按钮1_Click”，输入下面的宏指令，我只是写上一些关键的语句，你可按具体要求补充完整。原答案被判违规现修改，感谢审核的放行。谢谢！

4、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

Answer 2

----57132899----
这个可以录制宏的
或者你删除敏感信息，发文件 给我