Question

请问在EXCEL中怎么样用宏实现打印计数和打印指定工作表（多个工作表）

就是点击了打印按钮，就打印指定的工作表，并且每点一次按钮就计数一下，谢谢！

Answer 1

Private Sub CommandButton1_Click()
    Static clickTimes As Integer
    ActiveSheet.PrintOut    '工作表打印
    clickTimes = clickTimes + 1 '计数
End Sub

追问

工作表打印只打印当前工作表，我想打印同个工作薄中其他任意指定的几个工作表的代码?

追答

把表遍历一下
Sheets(1).PrintOut
Sheets(2).PrintOut

追问

Sheets(1).PrintOut
Sheets(2).PrintOut请问这个代码插到上面代码的那个位置？我的其它工作表已经重命名的，这个代码还可以用吗？还有就是计数好像没有指定在那个单元格中，可不可以指定？谢谢

追答

用sheet名也是可以的，Sheets("Sheet1").PrintOut

最后加上一行 Sheets(1).cells(1,1).value=clicktimes

按照你这个要求，最好写个用户窗体

追问

你好，这个代码不能使用，能不能写个完整的代码呢？

追答

这个你自己写下吧，并不难

用户窗体上，做个复选框来选择要打印的工作表，然后加上打印按钮，如果需要的话再加上一个显示点击次数的label

Answer 2

你指定的是哪个工作表，计数写在哪里？

追问

指定的工作表是除当前页外其他任意的几个工作表，计数计到当前工作表中任意的其中一个单元格就可以，谢谢!

追答

除了本工作表，其他所有的工作表打印一次，对吧。每打印一次计数 1 次

Public Sub SXDY()
    Dim Nm, Sh As Worksheet
    Nm = ActiveSheet.Name
    
    For Each Sh In Worksheets
        If Sh.Name <> Nm Then
            Sh.PrintOut To:=1
        End If
    Next
    Sheets(Nm).[m1] = Sheets(Nm).[m1] + 1
End Sub

追问

你好，我想得到的是计数到本页的任何单元格，打印就除本页外的其它工作表

追答

我这里是正常的，你那里有错误，奇怪了，我也不明白了。对了，其他工作表都有内容吧。

取消页码试试：

Public Sub SXDY()
    Dim Nm, Sh As Worksheet
    Nm = ActiveSheet.Name
     
    For Each Sh In Worksheets
        If Sh.Name <> Nm Then
            Sh.PrintOut 
        End If
    Next
    Sheets(Nm).[m1] = Sheets(Nm).[m1] + 1
End Sub

追问

其它工作表都是有内容的，并没有页码，要不我发文件你帮我搞一下？

追答

呵呵，我在代码中取消了打印页码。再试试上面的代码，我能想到的也就有这些了，
如果方便的话，发表格给我，我测试一下，不方便的话，我的能力也只这样了。

追问

你好，真的大感谢你了，我在工作薄中隐藏了2个工作表，所以出现错误，取消了隐藏就不会错误出现，怎么样可以忽略隐藏工作表呢？还有就是在第一页中输入的内容（图1）在点击了打印按钮后可以逐条记录其中的姓名，身份证号码在我的隐藏的工作表中，姓名身份证号码重复不记录，谢谢！

追答

发文件给我，调试一下看看。