Как определить строку нижней границы печати

Татьяна Агафонова Пользователь Сообщений: 140 Регистрация: 20.04.2011	#1 15.03.2021 18:38:25 Всем доброго дня! Подскажите, пожалуйста, как выяснить нижнюю строку установленных границ печати? т.е. получить в переменную 65 в приложенном примере Прикрепленные файлы 7683.xlsx (19.17 КБ)

sokol92

Пользователь

Сообщений: 4661 Регистрация: 10.09.2017

15.03.2021 19:02:20

Код

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

Владимир

Kuzmich

Пользователь

Сообщений: 8045 Регистрация: 21.12.2012

15.03.2021 19:03:06

Как-то так

Код

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

Татьяна Агафонова Пользователь Сообщений: 140 Регистрация: 20.04.2011	#4 15.03.2021 19:14:25 sokol92, Kuzmich, Спасибо большое, работает