Надеюсь, здесь помогут...))) Предистория такова: Шаблон с формулами макросом копируется вниз - получается полторы сотни шаблонов. Область печати сформирована от начального и до конечного шаблона, ориентация альбомная. Файл прилагаю.
Не получается что бы при выводе на печать 1 шаблон был на 1 странице-пробовал поиграться разрывами страницы, но границы шаблонов все равно плывут. Смотрю в страничном режиме, там границы страниц пунктиром видно.
Подскажите как правильно сделать...
Добрый день, друзья!
Надеюсь, здесь помогут...))) Предистория такова: Шаблон с формулами макросом копируется вниз - получается полторы сотни шаблонов. Область печати сформирована от начального и до конечного шаблона, ориентация альбомная. Файл прилагаю.
Не получается что бы при выводе на печать 1 шаблон был на 1 странице-пробовал поиграться разрывами страницы, но границы шаблонов все равно плывут. Смотрю в страничном режиме, там границы страниц пунктиром видно.
Alexban, добрый день! В ваш код добавил строки (см строки с комментарием sancho...):
[vba]
Код
'...
c0 = 31 ' Количество строк в выделенной области, шаг Sheets("ТОП 100").HPageBreaks.Add before:=Sheets("ТОП 100").Rows(c0) ' sancho - добавляем границу печати первого листа a = 1 LastRow = Sheets("Лист1").Cells(Rows.Count, "A").End(xlUp).Row 'Последняя строка
Do Range("A" & c0).Select ActiveSheet.Paste ' Вставляем в выделенную область c0 = c0 + 28 Sheets("ТОП 100").HPageBreaks.Add before:=Sheets("ТОП 100").Rows(c0) ' sancho - добавляем границу печати последующих листов '...
[/vba] PS: на мой взгляд вам необходимо еще дописать выставление высот некоторых строк, которых были редактированы.
Alexban, добрый день! В ваш код добавил строки (см строки с комментарием sancho...):
[vba]
Код
'...
c0 = 31 ' Количество строк в выделенной области, шаг Sheets("ТОП 100").HPageBreaks.Add before:=Sheets("ТОП 100").Rows(c0) ' sancho - добавляем границу печати первого листа a = 1 LastRow = Sheets("Лист1").Cells(Rows.Count, "A").End(xlUp).Row 'Последняя строка
Do Range("A" & c0).Select ActiveSheet.Paste ' Вставляем в выделенную область c0 = c0 + 28 Sheets("ТОП 100").HPageBreaks.Add before:=Sheets("ТОП 100").Rows(c0) ' sancho - добавляем границу печати последующих листов '...
[/vba] PS: на мой взгляд вам необходимо еще дописать выставление высот некоторых строк, которых были редактированы.Sancho
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
