Автосохранение PDF-файла в ту же папку, где находится файл с макросом.

Пользователь

Сообщений: 9 Регистрация: 03.11.2018

03.11.2018 16:16:52

Здравствуйте. Есть файл с макросом, который сохраняет файл в PDF но работает в "ручном" режиме. Как сделать что бы он срабатывал при сохранении файла автоматически, и сохранял PDF в папку в которой лежит сам файл?

Прикрепленные файлы

MX.0.KZ.LC0012.xlsm (18.85 КБ)

Изменено: Bizo - 03.11.2018 16:30:52

Юрий М

Модератор

Сообщений: 61087 Регистрация: 14.09.2012

Контакты см. в профиле

03.11.2018 16:28:31

Попробуйте так:

Код

Sub Export_PDF_Order()
 
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Left$(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5), _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Bizo Пользователь Сообщений: 9 Регистрация: 03.11.2018	#3 03.11.2018 16:31:53 Спасибо, оперативно, начал сохранять в свою папку) Но не автоматом после сохранения... Может я чего то не так делаю

Юрий М Модератор Сообщений: 61087 Регистрация: 14.09.2012 Контакты см. в профиле	#4 03.11.2018 16:35:30 Найдите в модуле книги процедуру Workbook_BeforeSave и в ней вызывайте свой макрос.

Bizo Пользователь Сообщений: 9 Регистрация: 03.11.2018	#5 03.11.2018 16:49:22 Спасибо, разобрался)