vba - 无法使用 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