Экспорт книги MS Excel 2003 в PDF через VBA

StackOverflow https://stackoverflow.com/questions/224301

Вопрос

У меня есть книга Excel 2003, в которой содержится макрос, позволяющий скопировать некоторые из его листов в новую книгу, а затем сохранить и закрыть новую книгу. Он делает это несколько десятков раз, каждый раз немного различаясь.

Я хотел бы добавить в макрос дополнительный шаг для экспорта электронных таблиц дополнительных книг в PDF. Очевидный способ сделать это - использовать PDF-принтер и встроенную в Excel функцию печати, но большинство PDF-принтеров предоставляют вам " Сохранить как ... " диалоговое окно, прежде чем они закончат. Очевидно, что ввод этого по отдельности для семидесяти с лишним случаев не имеет смысла - поэтому я хотел бы что-то, что позволило бы мне установить его раньше времени (возможно, "использовать имя файла, который я печатаю, без его расширения"), а затем просто выберите параметры по умолчанию.

Есть идеи для бесплатного принтера PDF, который это делает? Или подходящая альтернатива?

Это было полезно?

Решение

Office 2007 допускает это. Я нашел PDFCreator хорошим, VBA включен в файлы примеров и слышал, что < a href = "http://www.cutepdf.com/" rel = "nofollow noreferrer"> CutePDF также хорош. PDFCreator и CutePDF бесплатны.

Другие советы

В качестве продолжения (мудрого) ответа от Remou , и именно это помогло мне решить мою проблему тоже.

Я выбираю pdfcreator (так как он у меня уже установлен), и это то, что я закончил с помощью: 

Sub PDF_Print() 
    Dim p 
    p = ActivePrinter 
    ActivePrinter = "PDFCreator" 
    ActiveDocument.PrintOut 
    ActivePrinter = p 
End Sub

Работает как шарм

Это может помочь: http://www.pdf995.com

Одна функция - это "Три опции автоматического имени, чтобы обойти диалог Сохранить как"

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top