怎样在EXCEL表格中自动设置表格被打印的次数？

Question

我有一张表格，想在里面的一个单元格内设置被打印的次数，就是每点打印一次，系统自动在单元格内增加1

Answer 1

实现方法如下：

假设编码在G1单元格，使用下面代码可实现打印和自动编码递增。

按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。

回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。

使用时，每点击一下添加的按钮，就会打印一次，并使编号自动加一。

Sub 打印()
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("g1"))
s = s + 1
Range("g1") = "'" & Right("0000" & s, 5)
End Sub

Answer 2

介绍一种较为通用的方法取消打印页码，如下：
一、excel2003版：点击文件菜单→页面设置→弹出页面设置对话框→选择页眉页脚选项卡→点击自定义页脚（如果页码设置在页眉则点击自定义页眉）→弹出页脚对话框→删除左、中、右中页脚内容→确定即可。
二、excel2007版：按ctrl+p→弹出打印菜单→选择页面设置→弹出页面设置对话框，后面操作同上。
三、excel2010版：按ctrl+p或是点击文件→打印→设置，页面设置→弹出页面设置对话框，后面操作同上两个。

Answer 3

用VBA代码中的BeforePrint事件

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheet2.Cells(1, 1).Value = Sheet2.Cells(1, 1).Value + 1
End Sub

以上代码意思是，每次打印，使sheet2的A1单元格数字加1

Answer 4

Private Sub Workbook_BeforePrint(Cancel As Boolean)
P = Application.Dialogs(xlDialogPrint).Show
If P = True Then
Sheets(1).Range("A1").Value = Sheets(1).Range("A1").Value + 1
Cancel = True
End If
End Sub本回答被提问者采纳