作者：乔山办公网日期：
返回目录：office365
Sub dayin()
dim n as integer
n=inputbox("打印次数") *1
for i=1 to n
activesheet.PrintOut Copies:=1
[H2]= "NO:" & application.text(i,"0000000000")
next
End Sub
用宏吧回，选打印个2张试答试效果，最后用pdf打印机测试
首先添加辅助列然后使用vlookup来实现这个功能。
像这样的问题，你完全可以求助于帮助 文件，只要在菜单栏的最左边“键入需要帮助的问题”文本框中输入“vlookup”回车，查看帮助文件，定有收获。
可以用Word中的“邮件合并”功百能轻松完成。
以Office 2003为例，“邮件合并”具体操作如下：
在Excel中“编号、姓名……”数据表并保存。
在Word中制作好“合同”文档度并保存。
在合同文档页面进行下述操作即可。
执行“工具/信函与邮件/邮件合并”命令，打开“邮件合并”对话框（在窗口右侧）。
1.选中“信函”知单击“下一步”；
2.选中“使用当前文档”单击“下一步”；
3.选中“使用现有列表”单击“浏览”，找到数据表后单击“打开”，单击“下一步”；道
4.将光标定位于要合并数据的位置，单击“其他项目”，把“插入合并域”中的项目选定（如编号）内后单击“插入/关闭”；
5.重复第5步，完成所有合并域的插入后，单击“下一步“；
6.单击“预览信函”中的按钮即可浏览合并效果，再单击“下一步：完成合并”就可以容进行打印；
7.打印可以全部打印也可以指定打印，根据实际情况在“合并到打印机”进行设置。
如果在Office 2000中,合并过程大同小异。试试看，在实际操作中可以调节。
建议先把你厂员工名字输zhidao入在一个表格里（如Sheet1）。
第1行做标题，数据从第2行开始（Sheet2同样）：
101（A2）、张三（B2）、张三的其他资料（C2、D2、……）
102（A3）、李四专（B3）、张三的其他资料（C3、D3、……）
103（A4）、王五（B4）、张三的其他资料（C4、D4、……）
……
在Sheet2表的B2输入
=IF(ISERROR(VLOOKUP($A2,Sheet1!$A:$Z,COLUMN(),0)),"",VLOOKUP($A2,Sheet1!$A:$Z,COLUMN(),0))回车并向右填充，再选B2～Z2，一同向下填充。
这样，当你在Sheet2中的“A”列输入员工编号，该员工的数据就自动全部显示出来了。
“Z”列为员工的其他资料最末尾的，可根据需要属修改。