亲,代码如下:
Sub printsheet()If ActiveSheet.Range("A1") > 0 Then Dim i As Long For i = 1 To Range("A1") Sheets("Sheet" & i).PrintOut NextEnd IfEnd Sub