Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Размещение 1 шаблона на 1 странице - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Размещение 1 шаблона на 1 странице (Макросы/Sub)
Размещение 1 шаблона на 1 странице
Alexban Дата: Вторник, 09.08.2022, 08:56 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Добрый день, друзья!

Надеюсь, здесь помогут...)))
Предистория такова:
Шаблон с формулами макросом копируется вниз - получается полторы сотни шаблонов.
Область печати сформирована от начального и до конечного шаблона, ориентация альбомная.
Файл прилагаю.

Не получается что бы при выводе на печать 1 шаблон был на 1 странице-пробовал поиграться разрывами страницы, но границы шаблонов все равно плывут.
Смотрю в страничном режиме, там границы страниц пунктиром видно.

Подскажите как правильно сделать...
К сообщению приложен файл: _-100VVV.xlsm(51.3 Kb)
 
Ответить
СообщениеДобрый день, друзья!

Надеюсь, здесь помогут...)))
Предистория такова:
Шаблон с формулами макросом копируется вниз - получается полторы сотни шаблонов.
Область печати сформирована от начального и до конечного шаблона, ориентация альбомная.
Файл прилагаю.

Не получается что бы при выводе на печать 1 шаблон был на 1 странице-пробовал поиграться разрывами страницы, но границы шаблонов все равно плывут.
Смотрю в страничном режиме, там границы страниц пунктиром видно.

Подскажите как правильно сделать...

Автор - Alexban
Дата добавления - 09.08.2022 в 08:56
Sancho Дата: Вторник, 09.08.2022, 12:19 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 276
Репутация: 19 ±
Замечаний: 0% ±

2007, 2010, 2013
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: на мой взгляд вам необходимо еще дописать выставление высот некоторых строк, которых были редактированы.
К сообщению приложен файл: -100VVV_sancho.xlsm(48.2 Kb)


Сообщение отредактировал Sancho - Вторник, 09.08.2022, 12:23
 
Ответить
Сообщение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
Дата добавления - 09.08.2022 в 12:19
Alexban Дата: Вторник, 09.08.2022, 12:39 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Sancho, спасибо..))
То что доктор прописал...
Да, вы правы - отредактированная высота строки не копируется просто так.
 
Ответить
СообщениеSancho, спасибо..))
То что доктор прописал...
Да, вы правы - отредактированная высота строки не копируется просто так.

Автор - Alexban
Дата добавления - 09.08.2022 в 12:39
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Размещение 1 шаблона на 1 странице (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!