Объединение книг и вывод на печать с подгонкой размера

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение книг и вывод на печать с подгонкой размера (Макросы/Sub)

w00t

Дата: Суббота, 14.05.2016, 18:44 | Сообщение № 1

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

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

Сообщений: 131

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

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

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

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

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

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

Сообщение отредактировал w00t - Суббота, 14.05.2016, 18:44

Ответить

w00t

Дата: Суббота, 14.05.2016, 20:00 | Сообщение № 2

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

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

Сообщений: 131

Репутация: 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 (15.8 Kb)

Сообщение отредактировал w00t - Суббота, 14.05.2016, 20:20

Ответить

Karataev

Дата: Суббота, 14.05.2016, 22:29 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1334

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

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

Excel

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

Цитата w00t, 14.05.2016 в 20:00, в сообщении № 2

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

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

Сообщение отредактировал Karataev - Суббота, 14.05.2016, 22:34

Ответить

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