求助VBA批量打印

421092223

Private Sub 连续打印_Click()

  For d = [F1] To [F2]
    [e1] = d
    Me.PrintOut
  Next
End Sub

以上是代码，按连续打印，只把第2张打印2张。哪里错了？

半百

18年就问打印的问题，到现在还在问？给你回了都不看，又再重复发贴。

山菊花

[d2] 改为 [d1]

421092223

山菊花 发表于 2023-2-14 10:59
[d2] 改为 [d1]

好像没有d2

excel玉米

For c = [F1] To [F2]
    [d2] = c
    Me.PrintOut
  Next
把这个[D2]改成[D1]  ,表示是d1单元格随着C值的变化而变动，表单中的公式值根据D1值而改变。当D1值为2时，表单数据取第二张数据，D1值为3时，表单数据取第三张数据；打印时分别打出第二张和第三张的表单内容。

mmwwdd

半百 发表于 2023-2-14 10:59
18年就问打印的问题，到现在还在问？给你回了都不看，又再重复发贴。

楼主厉害，18年的木乃伊都挖 出来了

ivccav

半百 发表于 2023-2-14 10:59
18年就问打印的问题，到现在还在问？给你回了都不看，又再重复发贴。

很多人问了问题，你回答了，她下载来用，如果你答对了，她不会回应你问题解决了，更不会说声谢谢。
你答错了她能一天追问你几十次。这种人见怪不怪了