excel vba如何根据单元格内容选择打印工作表

2024-11-03 20:08:36
推荐回答(1个)
回答(1):

亲,代码如下:

Sub printsheet()
If ActiveSheet.Range("A1") > 0 Then
    Dim i As Long
    For i = 1 To Range("A1")
        Sheets("Sheet" & i).PrintOut
    Next
End If
End Sub