UC知道求个excel打印宏
来源：百度知道 编辑：UC知道 时间：2024/06/28 00:20:42
1个excel文件中，有3个工作表，Sheet1-Sheet3，在Sheet1中如果A1=1则打印Sheet2工作表，否则则不打印，如果A1=2则打印Sheet3工作表，否则则不打印。
Sub PrintSheets()
If Sheets("Sheet1").Range("A1").Value = 1 Then
'打印预览，如果要打印用 wSheet.PrintOut
'Sheets("Sheet2").PrintPreview
Sheets("Sheet2").PrintOut Copies:=1, Collate:=True
ElseIf Sheets("Sheet1").Range("A1").Value = 2 Then
'Sheets("Sheet3").PrintPreview
Sheets("Sheet3").PrintOut Copies:=1, Collate:=True
End If
End Sub