
excel
VBASub PrintCounter()Dim wb As WorkbookDim counter As Longcounter = 0Set wb = ActiveWorkbookFor Each Sheet In wb.Sheets counter = counter + 1 wb.Sheets("Sheet1").Range("A1").Value = counterNext SheetDebug.Print "The counter is " & counterEnd Sub运行以上程序,在每次打印完成后,可以在代码查看窗口中看到当前的打印次数。但请注意,此方法仅适用于当前工作簿,并且不能跨工作簿或整个文档进行计数。另外,如果您希望自动记录所有工作表的打印次数,可以使用一个公共的命名表来存储相关信息,并在每次打印完成后将相应工作表添加到该命名表中。然后,在需要时,可以访问该命名表并计算出所需数据。希望以上回答对您有所帮助!如有其他问题,请随时向我提问。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号