Sub ПечатьСмета()
    If Range("F9").Value = "" Then
        If MsgBox("Материала нет в наличии. Хотите продолжить?", _
                vbExclamation + vbYesNo, "Сообщение макроса") = vbNo Then
            Exit Sub
        End If
    End If
    If Len(Range("H9")) Then
    Range("H4").Select
    Sheets("Забор").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="Главный"
        Range("H4").Select
        Sheets("Воз").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="Duplex Dogovor"
        Application.ScreenUpdating = False
    Dim sh As Worksheet, lr As Long, i As Long
    For Each sh In ThisWorkbook.Sheets
        If sh.Name Like "Скл*" Then
            With sh
                'If Not Intersect(.Range("A5:A31"), .UsedRange) Is Nothing Then
                lr = .Cells(Rows.Count, 1).End(xlUp).Row
                    q = 0
                    For Each cl In .Range("A5:A31").Cells
                        If cl.Value <> "" Then q = q + 1
                    Next cl
                If q > 0 Then
                    For i = lr To 5 Step -1
                        If .Cells(i, 1) = "" Then .Rows(i).Hidden = True
                    Next i
                    .PrintOut Copies:=1
                End If
            End With
        End If
    Next sh
    Application.ScreenUpdating = True
    

        Else
    MsgBox "Проверьте заполнение: номер договора, число, цвет, шапку заказа и красные ячейки!"
    End If
    Sheets("Забор").Select
End Sub