作者：乔山办公网日期：
返回目录：excel表格制作
贴过去以后百还要度刷新 公式吧
Sub dayin()
Dim i&
For i = 1 To 165
Sheets("打印版权").[B2] = Sheets("sheet1").Cells(i, 1)
Sheets("打印").Select
ActiveSheet.Calculate
Sheets("打印").PrintOut
Next
End Sub
你用可以用下面方法处理
处理方法制表（两个表，数据表和输出表）
用Excel开发建筑工程资料的系统
一行一表法和多行一表法通用各种表格
这个我会写！
楼主，其实批量打印office文档的软件早就有了哦，楼主到嘻皮客娱乐学习网的实用工具版块去看看吧。就有这个软件，可以混合批量打印，不用那么麻烦写个宏啊