无法获取Excel以使用VBA打印特定的工作表

假设我有一个包含3张工作表的“工作表1”，“工作表2”和“工作表3”的工作簿。 现在我只想打印“Sheet 1”，所以在我使用的VBA中

Sheets("Sheet 1").PrintOut 

但macros仍然打印所有3个工作表。 发生了什么事，导致它打印所有3张，当我专门写代码只打印1？

 Activesheet.Printout 'also print all worksheets. 

我正在使用：Microsoft Excel Professional Plus 2010

Answer 1

试试这个，让我知道它是否适合你。

 Sub PrintTest() Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets If sh.Name = "Sheet1" Then sh.PrintOut Preview:=False, ActivePrinter:="NameOfPrinter", PrintToFile:=True, PrToFileName:=PSFileName End If Next sh End Sub