нужен макрос вывода на печать

[RML]

Подскажите пож-ста макрос для вывода на печать по условиям меток....т.е. ставлю на 3-ем листе напротив нужной строки метку, а макрос основываясь на мой выбор печатает с листа 1 выбранный мной диапазон.....
Понятнее в файле

[RML]

ну очень нужна ваша помощь господа специалисты!??

[RML]

Вот что получается...

If [L2] = ИСТИНА Then ActiveWindow.SelectedSheets.PrintOu t From:=1, To:=1, Copies:=1, _
Collate:=True
If [L2] = ЛОЖЬ Then ActiveWindow.SelectedSheets.PrintOu t From:=1, To:=1, Copies:=0, _
Collate:=False вот со второй строчкой проблемы..незнаю как сделать так, чтобы если ЛОЖЬ, то макрос шел к следующим галкам???

[EducatedFool]

Sub О1()
    On Error Resume Next
    Dim sh As Worksheet: Set sh = Worksheets("ОБШИЕ титул")
    For i = 1 To 16
        If Worksheets("____Критерии____").Cells(2 * i, 12) Then    ' если i-ая галочка установлена, то
            Debug.Print "Галочка " & i & " установлена", "Печать страниц: с " & i * 2 - 1&; " до " & i * 2
            sh.PrintOut From:=i * 2 - 1, To:=i * 2, Copies:=1
        Else
            Debug.Print "Галочка " & i & " НЕ установлена"
        End If
    Next i
End Sub

[RML]

Огроменное СПАСИБО!!!!!
А можно разграничить вывод на печать?..т.е. сначала мы печатаем неетные листы, затем пауза 2-3 минуты и печатаем четные листы.?(желательно в обратной последовательности)-особенность принтера

[RML]

Люди спасите!!!
Очень нужно