Изменить макрос вывода ярлыков на печать

[Ogeris]

Добрый день!

Прикрепляю файл с макросом.

Сейчас макрос выводит на печать ярлыки слева-направо, нужно, чтобы выводил сверху-вниз, т.е. сначала все непустые ярлыки из первого столбца, потом из второго и т.д.

Спасибо!

Дублирую сюда текст макроса:

Public Sub Печатать_непустые_ярлыки()
Application.EnableCancelKey = xlDisabled
Dim V As Range
Dim S&, R&, C&
S = Columns(1).Rows(65536).End(xlUp).Row
For R = 8 To S Step 15
    For C = 1 To 21
        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
 If Not V Is Nothing Then V.PrintOut Copies:=1, Collate:=True: Set V = Nothing
Next R
Application.EnableCancelKey = xlEnabled
End Sub

[Казанский]

Сообщение от Ogeris

сначала все непустые ярлыки из первого столбца, потом из второго и т.д.

Там горизонтальные разрывы страниц расставлены после каждого ярлыка. Если печатать так, то получится по одному ярлыку на странице. Вы этого хотите?

[Ogeris]

Сообщение от Казанский

Там горизонтальные разрывы страниц расставлены после каждого ярлыка. Если печатать так, то получится по одному ярлыку на странице. Вы этого хотите?

Да, там принтер для печати ярлыков, для него одна страница = один ярлык

[Казанский]

Просто переставьте местами циклы по строкам и столбцам

Public Sub Печатать_непустые_ярлыки()
Application.EnableCancelKey = xlDisabled
Dim V As Range
Dim S&, R&, C&
S = Columns(1).Rows(65536).End(xlUp).Row
For C = 1 To 21
    For R = 8 To S Step 15
        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
 If Not V Is Nothing Then V.PrintOut Copies:=1, Collate:=True: Set V = Nothing
Next
Application.EnableCancelKey = xlEnabled
End Sub

[Ogeris]

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