跪求excel里批量打印宏代码 20
sheet1里的各项放到sheet2对应项里完了批量打印的宏代码Subdayin()Dimi&Fori=1To165Sheets("打印").[B2]=Sheets("s...
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的内容怎么对应 展开
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的内容怎么对应 展开
6个回答
北京合创芯彩科技
2024-08-22 广告
在线打印公司有很多，其中推荐如下：* 易绘创校园打印站。该小程序提供自助操作，用户可以自己上传文件，系统会自动计算价格，下单后即可开始打印。其打印价格便宜，黑白A4纸仅需5分钱单面，7分钱/张。此外，该小程序还提供当日发货服务，售后态度也很...
点击进入详情页
本回答由北京合创芯彩科技提供
展开全部
把sheet2改名为打印或者把代码里的打印改为sheet2，另外sheet1的数据填到sheet2的代码你也没写
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
是啊，只看到sheet1和sheet2，没有看到“打印”工作表。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
把 Sheets("打印") 中的 打印 改为 Sheet2
或把 表名 Sheet2 改为 打印
或把 表名 Sheet2 改为 打印
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
把“打印” 改成“sheet2”，具体报错信息是啥？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（4）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
