Форматирование страницы для распечатки

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

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

Форматирование страницы для распечатки (Нужен код для автоматического форматирования станицы)

Форматирование страницы для распечатки

master-dd

Дата: Воскресенье, 26.05.2013, 14:37 | Сообщение № 1

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

Ранг: Участник

Сообщений: 78

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

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

2016

Добрый день.

Прошу помочь разобраться с такой проблемой.

У меня есть небольшой проект в Excel с макросами. Эта программа автоматически создаёт отчёты, но необходимо их при нажатии кнопки автоматически печатать. Всё дело в том, что отчёты каждый раз разные (разное количество столбцов и строк). Всё, что я пытался сделать свелось к тому, что я прописал при форматировании максимально возможной кол-во столбцов и строк, но, естественно, при распечатке получаются отчёты с очень мелким шрифтом и большой незаполненной областью (если в отчёте маленькое кол-во сторк и столбцов).

Поэтому, если кто знает, подскажите пожалуйста код, который последовательно:
1. Делает лист альбомным
2. Автоматически подбирает ширину страницы ("лишние" строки могут "вылазить на другой лст", главное чтобы попали только заполненные непустые столбцы) и форматирует её

В результате после выполнения макроса отчёт должен быть на 1 странице по ширине.

Заранее спасибо!

Сообщение отредактировал master-dd - Воскресенье, 26.05.2013, 14:38

Ответить

AndreTM

Дата: Воскресенье, 26.05.2013, 15:54 | Сообщение № 2

Группа: Друзья

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

Сообщений: 1762

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

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

2003 & 2010

[vba]

Код

With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 999
End With

[/vba]и затем
[vba]

Код

ActiveSheet.PrintOut ' и нужные параметры

[/vba]
Кстати, ещё можете задать повторение печати заголовка на каждой странице:
[vba]

Код

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
End With

[/vba]

И ещё - все эти "Параметры страницы" сохраняются, так что их можно и ручками предварительно установить один раз, а не форматировать каждый раз перед печатью smile