Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Распечатать Excel в PDF., Распечатать Excel в PDF. Имя PDF файла=имя Листа
 
#1
23.05.2022 22:35:20
Добрый вечер. У меня вопрос по поводу макроса, как его написать чтобы он брал имя листа и именовал файл распечатаный в PDF. Каждый лист делаю по отдельности, на форуме посмотрел конретного ответа не нашел. Заранее спасибо.


Код
Sub СохроненияЛиста()

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Asus\OneDrive\Рабочий стол\грузовая декл.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub


Как пример
Изменено: БМВ - 24.05.2022 07:36:07
 
 
 
#2
24.05.2022 08:59:52
Код
Sub СохрАнениеЛистОВ()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
    s.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Asus\OneDrive\Рабочий стол\" & s.Name & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
Next s
End Sub
 
 
 
#3
24.05.2022 09:24:13
Спасибо, у меня макрос на сохранение всей книги есть.

А можно подсказать макрос с сохранением только одного листа, на котором я нахожусь, активный лист. Просто не всегда нужно всю книгу выводить в PDF  
 
 
 
#4
24.05.2022 10:13:02
Код
Sub Печать()
Dim ИмяАктивногоЛиста$
ИмяАктивногоЛиста = ActiveSheet.Name
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Asus\OneDrive\Рабочий стол\" & ИмяАктивногоЛиста & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub
 
 
 
#5
24.05.2022 10:15:19
Спасибо большое, работает
 
 
 
Страницы: 1
Наверх