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

Вход

Регистрация

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

 

= Мир MS Excel/Объединение книг и вывод на печать с подгонкой размера - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение книг и вывод на печать с подгонкой размера (Макросы/Sub)
Объединение книг и вывод на печать с подгонкой размера
w00t Дата: Суббота, 14.05.2016, 18:44 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 126
Репутация: 3 ±
Замечаний: 0% ±

Имеется 20-30 маршрутных листов (пример во вложении). В каждой только 1 лист с данными. Размером они могут отличаться, поэтому для вывода на печать (альбомная ориентация) приходится подгонять размеры в каждой книге. Каждый лист книги на 1 лист А4 альбомной ориентации. То есть на выходе 20-30 листов А4.

Побраузил, есть достаточно в интернет готовых макросов для объединения книг в одну. В основном - создает макрос новые листы в книге, то есть 20 разных книг соберет на 20 листов одной книги. Потом не вполне понятно, как подогнать автоматом размеры для каждого листа для печати.

Вероятно это не лучшее решение, может кто более оптимальное подскажет. Чтобы собрать несколько книг и потом вывести это все на печать (с подгонкой размеров).
К сообщению приложен файл: 01.02.16_n.xls(30Kb)


Сообщение отредактировал w00t - Суббота, 14.05.2016, 18:44
 
Ответить
СообщениеИмеется 20-30 маршрутных листов (пример во вложении). В каждой только 1 лист с данными. Размером они могут отличаться, поэтому для вывода на печать (альбомная ориентация) приходится подгонять размеры в каждой книге. Каждый лист книги на 1 лист А4 альбомной ориентации. То есть на выходе 20-30 листов А4.

Побраузил, есть достаточно в интернет готовых макросов для объединения книг в одну. В основном - создает макрос новые листы в книге, то есть 20 разных книг соберет на 20 листов одной книги. Потом не вполне понятно, как подогнать автоматом размеры для каждого листа для печати.

Вероятно это не лучшее решение, может кто более оптимальное подскажет. Чтобы собрать несколько книг и потом вывести это все на печать (с подгонкой размеров).

Автор - w00t
Дата добавления - 14.05.2016 в 18:44
w00t Дата: Суббота, 14.05.2016, 20:00 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 126
Репутация: 3 ±
Замечаний: 0% ±

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

UPD: по идее, так?

[vba]
Код
Sub PrintSet()
For Each Sh In ThisWorkbook.Worksheets
   With Sh.PageSetup
    .Orientation = xlLandscape
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
   End With
Next
End Sub
[/vba]
К сообщению приложен файл: CombineWB.xlsm(16Kb)


Сообщение отредактировал w00t - Суббота, 14.05.2016, 20:20
 
Ответить
СообщениеСам макрос на объединение в одну книгу то вот, например.
Но, когда в книге появилось много листов, как автоматически все листы сделать альбомной ориентации и разместить на 1 странице в высоту и ширину?

UPD: по идее, так?

[vba]
Код
Sub PrintSet()
For Each Sh In ThisWorkbook.Worksheets
   With Sh.PageSetup
    .Orientation = xlLandscape
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
   End With
Next
End Sub
[/vba]

Автор - w00t
Дата добавления - 14.05.2016 в 20:00
Karataev Дата: Суббота, 14.05.2016, 22:29 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 641
Репутация: 226 ±
Замечаний: 0% ±

Excel
На всякий случай предложу способ без макроса (может поможет).
Можно выделить все листы, а затем настроить параметры страницы и параметры страницы будут применены ко всем выделенным листам.

UPD: по идее, так?

да, на первый взгляд (без тестирования) так.




Сообщение отредактировал Karataev - Суббота, 14.05.2016, 22:34
 
Ответить
СообщениеНа всякий случай предложу способ без макроса (может поможет).
Можно выделить все листы, а затем настроить параметры страницы и параметры страницы будут применены ко всем выделенным листам.

UPD: по идее, так?

да, на первый взгляд (без тестирования) так.

Автор - Karataev
Дата добавления - 14.05.2016 в 22:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение книг и вывод на печать с подгонкой размера (Макросы/Sub)
Страница 1 из 11
Поиск:

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