Разрыв страницы через определенное количество строк

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Разрыв страницы через определенное количество строк (Макросы/Sub)

Raza

Дата: Четверг, 05.03.2020, 14:35 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Дня доброго уважаемые!
Столкнулся недавно с такой проблемой, по работе прислали формуляры 400 штук на одном листе Excel, которые необходимо распечатать. Но автоматический разрыв страниц которые проставляет сам excel не подходят по размеру, а в ручную разрывы весь день ставить буду.
Как сделать чтобы разрывы страниц проставлялись макросом через определенное количество строк, допустим каждые 70 строчек? (Или как например в файле-примере каждые 23 строчки)

К сообщению приложен файл: 3941964.xls (113.5 Kb)

Ответить

mgt

Дата: Четверг, 05.03.2020, 16:26 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 102

Репутация: 26 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Dim k%, i%, b%, n%
b = 300 'последняя строка
k = 30 'шаг разрыва
n = 1
ActiveSheet.ResetAllPageBreaks
i = k
Do While i < b
    Set ActiveSheet.HPageBreaks(n).Location = ActiveSheet.Range("a" & i)
    i = i + k
    n = n + 1
Loop

[/vba]

Сообщение отредактировал mgt - Четверг, 05.03.2020, 16:26

Ответить

Raza

Дата: Четверг, 05.03.2020, 17:20 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

mgt, О, огромнейшая благодарственность!
Как то о циклах вообще не подумал...
Правда маленько исправил в

Цитата mgt, 05.03.2020 в 16:26, в сообщении № 2 ()

i = i + k

Сделал i = i + k - 1 а то каждый рразрыв на +1 строчку съезжал

Ответить

Разрыв страницы через определенное количество строк (Макросы/Sub)

Страница 1 из 1
1