Печать по порядку

[Ogeris]

Добрый день!

Прикрепляю таблицу с ярлыками, и макрос, который выделяет не нулевые по количеству ярлыки. Задача состоит в том, чтобы печатать ярлыки по порядку: сначала Бекон, потом - бульон. Сейчас он печатает их вперемешку.

Заранее спасибо!

[Ogeris]

Может быть, есть хотя бы догадки?

[nilem]

может, так?

Public Sub Выделить_непустые_ячейки()
Dim V As Range
Dim S&, R&, C&
S = Columns(1).Rows(30).End(xlUp).Row
For R = 8 To S Step 15
    For C = 1 To 16
        If Cells(R, C).Value <> 0 Then
        If V Is Nothing Then Set V = Range(Cells(R - 7, C), Cells(R + 7, C)) Else Set V = Union(V, Range(Cells(R - 7, C), Cells(R + 7, C)))
        End If
    Next C
    V.PrintOut Copies:=1, Collate:=True: Set V = Nothing
Next R
End Sub

[Ogeris]

Работает!

Большущее спасибо!

[Ogeris]

Натолкнулся на такую ошибку: если в строке все значения кол-ва равны нулю, то макрос выдаёт ошибку:

Run-time error '91':

Object variable or With block variable not set

[nilem]

If Not V Is Nothing Then V.PrintOut Copies:=1, Collate:=True: Set V = Nothing

*дядя Игорь, оказывается, уже все порешал