Question

跪求excel里批量打印宏代码

sheet1里的各项放到sheet2对应项里完了批量打印的宏代码
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
这个是模板但执行时老提示出错
sheet1里的各项放到打印对应项里完了批量打印的宏代码
Sub dayin()
Dim i&
For i = 2 To 67
Sheets("打印").[H6] = Sheets("sheet1").Cells(i, 1)
Sheets("打印").Select
ActiveSheet.Calculate
Sheets("打印").PrintOut
Next
End Sub
这个模板只能对应h6里的内容
其他内容对应不上，跪求大神还有B7 B8的内容怎么对应





Answer 1

你用可以用下面方法处理

处理方法制表（两个表，数据表和输出表）

用Excel开发建筑工程资料的系统

一行一表法和多行一表法通用各种表格

Answer 2

把sheet2改名为打印或者把代码里的打印改为sheet2，另外sheet1的数据填到sheet2的代码你也没写

Answer 3

是啊，只看到sheet1和sheet2，没有看到“打印”工作表。

Answer 4

把 Sheets("打印") 中的 打印 改为 Sheet2
或把 表名 Sheet2 改为 打印

Answer 5

把“打印” 改成“sheet2”，具体报错信息是啥？