根据工作簿中的单元格内容进行打印

Question

我有一本包含约 200 多张工作表的工作簿

我想根据工作表单元格中的值打印特定工作表。

我努力了：

Sub Printsheet()
  Dim p As Integer, q As Integer
  p = Worksheets.Count
  For q = 43 To p - 2
    With Worksheets(q)
      If Range("J35").Value > 0 Then
        .Worksheets.PrintOut from:=1, to:=1 'Prints page 1 when there is no data.
      Else
    End With
  Next q
End Sub

收到错误：

Answer 1

首先修复错误 - 然后描述不应该发生的事情

With Worksheets(q)
  If Range("J35").Value > 0 Then
    .Worksheets.PrintOut from:=1, to:=1 'Prints page 1 when there is no data.
  ' **Replace This**
  'Else
  ' ** With This**
  End If
End With