求助大神 根据SN变化实现批量打印

wdf1001

1.  见附件，黄色部分的SN是根据“数据源”中的SN号变动
2. 模板中“COS号”，采用了VLOOKUP函数，根据1中SN变化而变成“数据源”表中相应的COS号
3. SN号下显示一维条码，COS号下显示二维码，如附件所示。在SN号跟COS号变动时，一维码二维码也会相应变。谢谢
4.“数据源”中有多少个SN号，就打印多少页。
由于SN号众多，一个一个手动更改打印太耗费时间。请大神帮忙实现批量打印。谢谢！

hfwufanhf2006

先录制个打印宏，然后再套一个外层循环，根据“数据源”逐行读取数据。
我自己没有打印机，只能帮你写个参考的代码：
For i = 2 To Worksheets("数据源").[a1000].End(3).Row   '循环所有的行
    s1 = Worksheets("数据源").Cells(i, 2)     '读取 SN
    s2 = Worksheets("数据源").Cells(i, 3)     '读取 COS
    Cells(3, "h") = s1     '写入SN 到 H3
    Cells(13, "h") = s2   '写入COS 到 H13
    Application.PrintCommunication = True   '打开打印机
    ActiveSheet.PageSetup.PrintArea = "$A$1:$L$49"   '打印s1:s49区域
    ActiveWindow.SelectedSheets.PrintOut Copies:=1   '每次打印一份
Next i

代码要放在“CP模板”工作表里，否则里面的单元格指向会出问题。
你原来的函数vlookup会被清除，因为代码会直接把数据读过来，vlookup就没必要用了。我后来才注意到你说的条码和二维码的事情，我不知道这两个是如何变化的，你自己根据需要改吧；