Макрос для сохранения листа в PDF формате. Возможно?

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

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

06.02.2011 09:13:40

Здраствуйте!
Есть Книга с несколькими листами.Один из листов при помощи doPDF(виртуальный принтер) сохраняю в определенную папку в pdf формате.
Задался вопросом. А возможно ли применить макрос для автоматизирования данной процедуры?
Заранее спасибо за ответ.

EducatedFool

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

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

06.02.2011 09:36:32

Конечно же, возможно.
Макрос простейший - из 2 строк: первой строкой кода активируем ПДФ-принтер, второй строкой - выводим нужный лист на печать:

sub test
ActivatePDFprinter
Worksheets("Отчёт").printout
end sub

Функцию для активации принтера PDF можно взять здесь:
http://excelvba.ru/code/printers

(расположите код этой функции под своим макросом)

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

shadowbat Пользователь Сообщений: 70 Регистрация: 01.01.1970	#3 11.04.2012 00:34:37 у меня 2й и 3й способы почему то не заработали. вот переработала немножко 1й способ (стал похожий на 3й) Function ActivatePDFprinter() If Application.ActivePrinter Like "PDF" Then ActivatePDFprinter = True: Exit Function On Error Resume Next: Err.Clear Set AllPrinters = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT * FROM Win32_Printer", , 48) For Each printer In AllPrinters n = n + 1: Debug.Print "Принтер №" & n & ": " & printer.Name If printer.Name Like "PDF" Then Application.ActivePrinter = printer.Name & " (Ne" & Format(n - 1, "00") & ":)" ActivatePDFprinter = True: Exit For End If Next Debug.Print "Всего принтеров: " & n Debug.Print Application.ActivePrinter End Function

Читают тему