Excel如何设置每打印一次表格后根据另一表格的依次内容改变后再打印一次

Excel如何设置每打印一次表格后根据另一表格的依次内容改变后再打印一次

方法如下：
假设编码在G1单元格，使用下面代码可实现打印和自动编码递增。
　　按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。
　　回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。
　　使用时，每点击一下添加的按钮，就会打印一次，并使编号自动加一。

Sub 打印()
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("g1"))
s = s + 1
Range("g1") = "'" & Right("0000" & s, 5)
End Sub追问我要的是几列的变化代码，不是你从百度复制出来的东西。你这个没用

公式不行，要用VBA
设置个按钮，打印完了，自动提取另1列的数据到指定位置，继续打印。追问重点在这里，怎么设置追答要编写VBA代码追问能写出来吗？

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息