excel代码根据公式打印多张纸

Question

我必须根据该工作表是否与用户相关，在 Excel 中打印多张工作表。在一个名为“Sheet2”的工作表中，我在单元格 14 的 A 列中有工作表名称。 A 列中有 24 张不同名称的工作表。在每个相邻的单元格（B 列）中，我有 True 或 False。我希望打印在 B 列中有 True 的工作表。我可以一张一张地打印到工作表上，而不是将所有相关工作表作为一个文件同时打印。我使用的代码如下：

Sub CommandButton1_Click()

Dim wb As Workbook
Dim SheetsToPrint As String
Set wb = ThisWorkbook

Dim sheetWithData As Worksheet
Set sheetWithData = wb.Sheets("Sheet2")

Dim startNameRange, endNameRange As Integer
startNameRange = 14
endNameRange = 39

For i = startNameRange To endNameRange Step 1

Dim nameSheetToPrint As String
SheetsToPrint = sheetWithData.Range("A" & i).Value

Dim wsToPrint As Worksheet
Set wsToPrint = wb.Sheets(SheetsToPrint)

If sheetWithData.Cells(i, 2) = "True" Then
    wsToPrint.PrintOut From:=1, To:=1
End If



Next i

End Sub

Answer 1

调整变量并试试这个：

Sub PrintSheet()

Dim wb As Workbook
Set wb = ThisWorkbook

Dim sheetWithData As Worksheet
Set sheetWithData = wb.Sheets("Sheet2")

'Add the first row number and the last row number where start the sheet name
Dim startNameRange, endNameRange As Integer
startNameRange = 2
endNameRange = 4

For i = 2 To 4 Step 1

    Dim nameSheetToPrint As String
    nameSheetToPrint = sheetWithData.Range("A" & i).Value

    Dim wsToPrint As Worksheet
    Set wsToPrint = wb.Sheets(nameSheetToPrint)

    If sheetWithData.Cells(i, 2) = "True" Then
        wsToPrint.PrintOut
    End If



Next i

End Sub