无法使用VBA使用Excel打印特定工作表

Question

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

Sheets("Sheet 1").PrintOut

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

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