Страницы: 1
RSS
Как запустить на печать заданный диапазон ячеек
 
Здравствуйте. Подскажите, пожалуйста, как распечатать диапазон не пустых ячеек. Т.е. имеются бирки, нужно распечатать бирки, в которых соответственно имеются данные (и не имеет смысла распечатывать пустые). Конечно, можно просто вручную выделить и пустить на печать выделенный диапазон. Но т.к. данная печатная форма распечатывается из VBA-формы, поэтому и спрашиваю. Спасибо.
 
Цитата
как распечатать диапазон не пустых ячеек
По сути надо найти строку с последней заполненной биркой в первом столбце с бирками
Код
Sub Kod()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
Dim FAdr As String
    Set FoundCell = Columns(1).Find("Код", , xlValues, xlWhole)
     If Not FoundCell Is Nothing Then
       FAdr = FoundCell.Address
      Do
        If FoundCell.Offset(, 1) = 0 Then
          iLastRow = FoundCell.Row
          Exit Do
        End If
        Set FoundCell = Columns(1).FindNext(FoundCell)
      Loop While FoundCell.Address <> FAdr
     End If
     MsgBox "Последняя строка с заполненными бирками: " & iLastRow - 1
End Sub
 
Kuzmich, спасибо огромное! Все работает. Теперь, используя PrintArea вывожу на печать выделенный диапазон.
Страницы: 1
Наверх