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

发布网友 发布时间：2022-04-25 07:07

我来回答

共1个回答

热心网友 时间：2023-11-05 19:00

方法如下：
假设编码在G1单元格，使用下面代码可实现打印和自动编码递增。
　　按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。
　　回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。
　　使用时，每点击一下添加的按钮，就会打印一次，并使编号自动加一。
Sub
打印()
ActiveWindow.SelectedSheets.PrintOut
s
=
Val(Range("g1"))
s
=
s
+
1
Range("g1")
=
"'"
&
Right("0000"
&
s,
5)
End
Sub

热心网友 时间：2023-11-05 19:00

方法如下：
假设编码在G1单元格，使用下面代码可实现打印和自动编码递增。
　　按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。
　　回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。
　　使用时，每点击一下添加的按钮，就会打印一次，并使编号自动加一。
Sub
打印()
ActiveWindow.SelectedSheets.PrintOut
s
=
Val(Range("g1"))
s
=
s
+
1
Range("g1")
=
"'"
&
Right("0000"
&
s,
5)
End
Sub

热心网友 时间：2023-11-05 19:01

方法如下：
假设编码在G1单元格，使用下面代码可实现打印和自动编码递增。
　　按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。
　　回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。
　　使用时，每点击一下添加的按钮，就会打印一次，并使编号自动加一。
Sub
打印()
ActiveWindow.SelectedSheets.PrintOut
s
=
Val(Range("g1"))
s
=
s
+
1
Range("g1")
=
"'"
&
Right("0000"
&
s,
5)
End
Sub

热心网友 时间：2023-11-05 19:01

方法如下：
假设编码在G1单元格，使用下面代码可实现打印和自动编码递增。
　　按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。
　　回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。
　　使用时，每点击一下添加的按钮，就会打印一次，并使编号自动加一。
Sub
打印()
ActiveWindow.SelectedSheets.PrintOut
s
=
Val(Range("g1"))
s
=
s
+
1
Range("g1")
=
"'"
&
Right("0000"
&
s,
5)
End
Sub

热心网友 时间：2023-11-05 19:00

方法如下：
假设编码在G1单元格，使用下面代码可实现打印和自动编码递增。
　　按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。
　　回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。
　　使用时，每点击一下添加的按钮，就会打印一次，并使编号自动加一。
Sub
打印()
ActiveWindow.SelectedSheets.PrintOut
s
=
Val(Range("g1"))
s
=
s
+
1
Range("g1")
=
"'"
&
Right("0000"
&
s,
5)
End
Sub

热心网友 时间：2023-11-05 19:01

方法如下：
假设编码在G1单元格，使用下面代码可实现打印和自动编码递增。
　　按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。
　　回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。
　　使用时，每点击一下添加的按钮，就会打印一次，并使编号自动加一。
Sub
打印()
ActiveWindow.SelectedSheets.PrintOut
s
=
Val(Range("g1"))
s
=
s
+
1
Range("g1")
=
"'"
&
Right("0000"
&
s,
5)
End
Sub