Есть макрос. Надо в него добавить вывод на печать после каждого процесса.

[Ogeris]

Доброе утро!

Как в нижеприведённом макросе, любезно написанным alex77755, описать, чтобы он после выделения строки отправлял её на печать, потом смотрел следующую строку, снова выделял где надо, отправлял на печать, переходил к следующей, и так далее? На всякий случай прилагаю книгу с примером таблицы и работой макроса.

Код Макроса:

Public Sub VYD()
Dim V As Range
Dim S
Dim R, C
S = Лист6.Columns(1).Rows(65536).End(xl Up).Row
Set V = Range("A1")
For R = 7 To S Step 12
For C = 1 To 14
If Cells(R, C).Value <> 0 Then
Set V = IIf(V.Count = 1, Range(Cells(R - 6, C), Cells(R + 5, C)), Union(V, Range(Cells(R - 6, C), Cells(R + 5, C))))
End If
Next C
Next R
V.Select
End Sub

[alex77755]

Public Sub VYD_P()
Dim V As Range
Dim S
Dim R, C
S = Лист6.Columns(1).Rows(65536).End(xlUp).Row
  Set V = Range("A1")
For R = 7 To S Step 12
    For C = 1 To 14
        If Cells(R, C).Value <> 0 Then
                Set V = IIf(V.Count = 1, Range(Cells(R - 6, C), Cells(R + 5, C)), Union(V, Range(Cells(R - 6, C), Cells(R + 5, C))))
        End If
    Next C
    V.Select
     Selection.PrintOut Copies:=1, Collate:=True
      Set V = Range("A1")
Next R
End Sub