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

Вход

Регистрация

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

 

= Мир MS Excel/Экспорта в PDF нескольких листов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Экспорта в PDF нескольких листов (Макросы/Sub)
Экспорта в PDF нескольких листов
KolyvanOFF Дата: Пятница, 23.01.2015, 16:19 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
Всем доброй пятницы. Подскажите как написать макрос чтобы в PDF экспортировался лист 1 и лист 2.
Один лист выгружается вот таким образом. Как его дописать?

Sub Экспорт()
'
' Экспорт Макрос
'
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\" & [h2].Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub


С уважением, Евгений
 
Ответить
СообщениеВсем доброй пятницы. Подскажите как написать макрос чтобы в PDF экспортировался лист 1 и лист 2.
Один лист выгружается вот таким образом. Как его дописать?

Sub Экспорт()
'
' Экспорт Макрос
'
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\" & [h2].Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

Автор - KolyvanOFF
Дата добавления - 23.01.2015 в 16:19
SLAVICK Дата: Пятница, 23.01.2015, 16:28 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
В начало макроса допишите:

[vba]
Код
Sheets(Array("Лист1", "Лист2")).Select
[/vba]
или
[vba]
Код
Sheets(Array(1, 2)).Select
[/vba]


Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Пятница, 23.01.2015, 16:30
 
Ответить
СообщениеВ начало макроса допишите:

[vba]
Код
Sheets(Array("Лист1", "Лист2")).Select
[/vba]
или
[vba]
Код
Sheets(Array(1, 2)).Select
[/vba]

Автор - SLAVICK
Дата добавления - 23.01.2015 в 16:28
KolyvanOFF Дата: Пятница, 23.01.2015, 16:35 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
Спасибо. Все работает.
Тема закрыта.


С уважением, Евгений
 
Ответить
СообщениеСпасибо. Все работает.
Тема закрыта.

Автор - KolyvanOFF
Дата добавления - 23.01.2015 в 16:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Экспорта в PDF нескольких листов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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