Страницы: 1
RSS
Как определить строку нижней границы печати
 
Всем доброго дня!
Подскажите, пожалуйста, как выяснить нижнюю строку установленных границ печати? т.е. получить в переменную 65 в приложенном примере
 
Код
Sub test()
  Dim pArea, i As Long
  pArea = ActiveSheet.PageSetup.PrintArea
  If pArea <> "" Then
    With Range(pArea)
      i = .Row + .Rows.Count  ' номер первой строки после области печати
      Debug.Print i
    End With
  End If
End Sub
Владимир
 
Как-то так
Код
Sub iPrint()
Dim iPrintAreaAdres As String
Dim iPrintArea As Object
Dim RowPrint As Integer
  Set iPrintArea = ActiveSheet.PageSetup
  iPrintAreaAdres = iPrintArea.PrintArea
  RowPrint = Split(Split(iPrintAreaAdres, ":")(1), "$")(2)
End Sub
 
sokol92, Kuzmich, Спасибо большое, работает  :)  :idea:  
Страницы: 1
Читают тему (гостей: 1)
Наверх