Печать на основе содержимого ячеек в книге

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