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

[Ogeris]

В продолжение темы http://programmersforum.ru/showthrea...55#post1039855

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

Run-time error '91':

Object variable or With block variable not set

Самуан, плиз, хелп ми!

[Hugo121]

Решение в лоб и простое - добавить счётчик внутрь
If Cells(R, C).Value <> 0 Then
и перед
V.PrintOut
проверить его состояние.

[DiemonStar]

If Cells(R, C).Value <> 0 Then

по-моему, так будет лучше:

If IsEmpty(Cells(R, C).Value) Then

[Ogeris]

А куда его нужно вставить?

Попробовал так:

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
    If IsEmpty(Cells(R, C).Value) Then
    V.PrintOut Copies:=1, Collate:=True: Set V = Nothing
    End If
Next R
End Sub

Но не помогает :-(

[Hugo121]

Ogeris, Вы сперва попробуйте понять, как работает код.
Тогда станет понятно, что куда вставлять

[DiemonStar]

Вай, косякнул я))) надо было так сделать:

If Not IsEmpty(Cells(R, C).Value) Then

[Hugo121]

Без счётчика:

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

Но не проверял...