时间:2016-04-03 12:52 来源: 我爱IT技术网 作者:佚名
接触到很多表格,比如入职申请表、劳动合同等,每个表格都用唯一的编号,如果需要一百份,手动的工作量真的是超级大,本文通过VB语句在excel实现这个功能
前期准备工作(包括相关工具或所使用的原料等)
excel详细的操作方法或具体步骤
1、建立编号列表

2、用公式VLOOKUP把编号链接到表格中

3、设置打印开始编号和结束编号

4、打开VB编辑器,复制以下代码
Sub 打印物料维护单()
[AR5]=[AR5] - 1
Range("AR6").Select
Application.ActivePrinter="FX Docuprint M205 f-00000 在 Ne02:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""FX Docuprint M205 f-00000 在 Ne02:"",,TRUE,,FALSE)"
End Sub
Sub 循环()
AAA=Range("AR4")
Dim i As Long
Dim times As Long
times=AAA
'times代表循环次数,执行前把times赋值即可(不可小于1,不可大于2147483647)
For i=1 To times
Call 打印物料维护单
Next i
End Sub

5、插入命令按钮,指定宏名

6、点击命令按钮开始批量打印
注意事项
每部电脑的打印机不一样,可以通过录制宏做一次打印选择,然后替换以下代码 Application.ActivePrinter="FX Docuprint M205 f-00000 在 Ne02:" ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""FX Docuprint M205 f-00000 在 Ne02:"",,TRUE,,FALSE)"代码中的AR5是链接编号,AR4是循环次数,如果变动单元格,记得修改经验内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士。作者声明:本教程系本人依照真实经历原创,未经许可,谢绝转载。- 评论列表(网友评论仅供网友表达个人看法,并不表明本站同意其观点或证实其描述)
-
