Преглед садржаја
Овај водич ће показати како сачувати / одштампати у ПДФ -у у програму Екцел ВБА.
Штампајте у ПДФ -у
Ова једноставна процедура штампа АцтивеСхеет у ПДФ.
| 123456 | Суб СимплеПринтТоПДФ ()АцтивеСхеет.ЕкпортАсФикедФормат Тип: = клТипеПДФ, Назив датотеке: = "демо.пдф", Квалитет: = клКуалитиСтандард, _ИнцлудеДоцПропертиес: = Фалсе, ИгнореПринтАреас: = Фалсе, ОпенАфтерПублисх: = ТруеЕнд Суб |
Такође сам створио функцију са руковањем грешкама итд. Која ће штампати АцтивеСхеет у ПДФ -у:
| 12345678910111213141516171819202122232425262728293031323334353637383940 | ПодштампаноПДФ ()Позовите Саве_ПДФЕнд СубФункција Саве_ПДФ () Ас Боолеан 'Копира листове у нову ПДФ датотеку за слање е-поштомЗатамните ову таблицу као низ, ову датотеку као низ, име путање као низДим СвАс Ас СтрингАпплицатион.СцреенУпдатинг = Нетачно'Гет Филе Саве НамеОвај лист = АцтивеСхеет.НамеТхисФиле = АцтивеВоркбоок.НамеПатхНаме = АцтивеВоркбоок.ПатхСвАс = Име путање & "\" & Овај лист & ".пдф"'Подесите квалитет штампеНа Грешка Настави даљеАцтивеСхеет.ПагеСетуп.ПринтКуалити = 600Ерр.ЦлеарОн Еррор ГоТо 0'Упутите корисника како да шаљеУкључена грешка Иди на РефЛибЕррорАцтивеСхеет.ЕкпортАсФикедФормат Тип: = клТипеПДФ, Назив датотеке: = СвАс, Квалитет: = клКуалитиСтандард, ИнцлудеДоцПропертиес: = Фалсе, ИгнореПринтАреас: = Фалсе, ОпенАфтерПублисх: = ТруеОн Еррор ГоТо 0Сачувај само:МсгБок "Копија овог листа је успешно сачувана као .пдф датотека:" & Цхр (13) & Цхр (13) & СвАс & _"Прегледајте .пдф документ. Ако документ НЕ изгледа добро, прилагодите параметре штампања и покушајте поново."Саве_ПДФ = ТачноГоТо ЕндМацроРефЛибЕррор:МсгБок "Није могуће сачувати као ПДФ. Референтна библиотека није пронађена."Саве_ПДФ = НетачноЕндМацро:Завршна функција |
Функција враћа ТРУЕ или ФАЛСЕ ако је штампање у ПДФ -у било успешно или није.
ПДФ функција за чување и слање е -поште
Ова функција ће сачувати АцтивеСхеет као ПДФ и (опционално) приложити ПДФ у е -поруци (под претпоставком да имате инсталиран Оутлоок):
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748 | Суб Тест_Саве_ПДФ ()Позови Сенд_ПДФ ("СендЕмаил")Енд СубФункција Сенд_ПДФ (Опционална радња Ас Стринг = "СавеОнли") Као Боолеан 'Копира листове у нову ПДФ датотеку за слање е-поштомЗатамните ову таблицу као низ, ову датотеку као низ, име путање као низДим СвАс Ас СтрингАпплицатион.СцреенУпдатинг = Нетачно'Гет Филе Саве НамеОвај лист = АцтивеСхеет.НамеТхисФиле = АцтивеВоркбоок.НамеПатхНаме = АцтивеВоркбоок.ПатхСвАс = Име путање & "\" & Овај лист & ".пдф"'Подесите квалитет штампеНа Грешка Настави даљеАцтивеСхеет.ПагеСетуп.ПринтКуалити = 600Ерр.ЦлеарОн Еррор ГоТо 0'Упутите корисника како да шаљеУкључена грешка Иди на РефЛибЕррорАцтивеСхеет.ЕкпортАсФикедФормат Тип: = клТипеПДФ, Назив датотеке: = СвАс, Квалитет: = клКуалитиСтандард, ИнцлудеДоцПропертиес: = Фалсе, ИгнореПринтАреас: = Фалсе, ОпенАфтерПублисх: = ТруеОн Еррор ГоТо 0' Шаљи имејлАко је акција = "СендЕмаил" ЗатимУкључено Грешка ГоТо СавеОнлиАпплицатион.Диалогс (клДиалогСендМаил) .СховОн Еррор ГоТо 0ГоТо ЕндМацроКрај АкоСачувај само:МсгБок "Копија овог листа је успешно сачувана као .пдф датотека:" & Цхр (13) & Цхр (13) & СвАс & _"Прегледајте .пдф документ. Ако документ НЕ изгледа добро, прилагодите параметре штампања и покушајте поново."Сенд_ПДФ = ТачноГоТо ЕндМацроРефЛибЕррор:МсгБок "Није могуће сачувати као ПДФ. Референтна библиотека није пронађена."Сенд_ПДФ = НетачноЕндМацро:Завршна функција |
