Як друкувати у pdf за допомогою vba (з прикладом)
Ви можете використовувати такий синтаксис у VBA, щоб надрукувати поточний активний аркуш Excel у PDF:
SubPrintToPDF ()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=" my_data.pdf ", _
Quality:=xlQualityStandard, _
IncludeDocProperties:= False ,_
IgnorePrintAreas:= False ,_
OpenAfterPublish:= True
End Sub
Цей конкретний макрос роздрукує поточний активний аркуш Excel у PDF-файл під назвою my_data.pdf , який буде збережено в поточній папці.
Примітка №1 : Ви також можете включити повний шлях до файлу в аргументі Ім’я файлу , щоб зберегти PDF-файл у певній папці.
Примітка №2 : Рядок OpenAfterPublish:= True повідомляє VBA відкрити PDF-файл, щойно його буде експортовано. Ви можете пропустити цей аргумент, якщо не хочете, щоб PDF відкривався після експорту.
Примітка №3 : єдиним обов’язковим аргументом у методі ExportAsFixedFormat є Type , для якого має бути встановлено значення xlTypePDF , щоб надрукувати аркуш у форматі PDF.
У наступному прикладі показано, як використовувати цей макрос на практиці.
Приклад: експортуйте аркуш Excel у PDF за допомогою VBA
Припустимо, у нас є наступний аркуш Excel, що містить інформацію про різних баскетболістів:
Тепер припустімо, що ми хочемо експортувати цей аркуш у PDF під назвою my_data.pdf .
Для цього ми можемо створити такий макрос:
SubPrintToPDF ()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=" my_data.pdf ", _
Quality:=xlQualityStandard, _
IncludeDocProperties:= False ,_
IgnorePrintAreas:= False ,_
OpenAfterPublish:= True
End Sub
Коли ми запускаємо цей макрос, аркуш Excel експортується в PDF, а потім PDF автоматично відкривається:
Зауважте, що точне форматування клітинок із межами та кольором заливки включено до PDF-файлу.
Примітка . Ви можете знайти повну документацію методу ExportAsFixedFormat у VBA тут .
Додаткові ресурси
У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:
VBA: як створити папки
VBA: як видалити папки
VBA: як видалити файли