Стоит задача:
Есть .doc файл(шаблон) из него я програмно делаю .doc документы, но их необходимо преобразовать в .pdf, причем программно.
Как это сделать.
У меня только одна идея, это через виртуальный принтор Adobe PDF.
Запустить на него через VBA, нет проблем, но при этом появляется окно "Сохранить как..." и дальше я не знаю что делать, так как мне необходимо сохранять под разными(заранее определенными именами) и в разные(известные) каталоги.

Может у кого есть другие идеи.

Подскажите пожалуйсто.

MelkiadesSendKeys пробовали?
Не катит, нужно в активное окно windows sendkeys использовать, а здесь VBA тормозится на Printout
Нужно что-то типа перехвата события windows делать, а как не знаю

Igogoадд-ин называется AcrobatPDFMaker
Пардонти!

Не понял....

Igogo Belkin Igogoадд-ин называется AcrobatPDFMaker
Пардонти!

Не понял....

Дык в дистрибутиве Акробата есть эта муть, которая коннектица к офису и на васике её можно пользовать что бы сохранять доки в пдф без лишних усилий :)
Ты говоришь общими фразами, может поконкретнее.
От куда смотреть, или заново акробат переустанавливать?

timtimAcrobatPDFMaker - платный контрол, качай его из нета да ломай потом, и юзай!
Может подскажешь, где качать, как ломать.
Сам занимался этим?

Народ, есть еще какие решения?

Magnus23 Belkin timtimAcrobatPDFMaker - платный контрол, качай его из нета да ломай потом, и юзай!
Может подскажешь, где качать, как ломать.
Сам занимался этим?
Господа в очередной раз предупреждаю, не застаявляйте прибегать к крайним мерам. Правила в отношении поиска кряков/способов взлома, с некоторых пор ужесточили.
Что это значит, ты про что?

Magnus23По сабжу: у меня дома где-то был класс с имплементацией некоторой части формата ПДФ, созданый на основе кода когда-то увиденного в сети, т.е. файл созадавался ручками. Немного муторно, т.к все форматирование нужно самому делать, но зато никакой головной боли с лицензиями. Для одного старого проекта это было очень критично, разрабатывался для МинЮста португалии :)).
Если ничего более подходящего не найдется я к выходным найду и кину.

Хотя, вариант с печатью как в принтер должен работать. По идее должна быть возможность передать ему параметры и отключить диалог...


Magnus
Спасибо, поищи, может что получится.
А по поводу взломов, что потом сайту предъявы бывают?
Ты админ или модератор?

Magnus23 BelkinСпасибо, поищи, может что получится.
А по поводу взломов, что потом сайту предъявы бывают?
Ты админ или модератор?
Поищу, но не раньше чем завтра.
Предьявы действительно были, причем совсем недавно.
Mодер форума VB.
Ну, что нашел что?
Нужно позарест...

AndrFА какие вообще проблемы вывести в PDF-то?

1. Есть куча программ изображающих их себя принтер и выводящих результат в PDF.
2. ActiveReports (и скорей всего другие подобные) имеет возможность экспорта в PDF. Я лично использую его...
Это нужно делать программно через VBA, там в цикле создаются .doc, затем нужно .pdf, а потом отправить на e-mail
Так вот если отправлять на виртуальный принтер Acrobat, то появляется окно "Сохранить как" и вот здесь то и нужно задать(программно) куда сохранять, а как это сделать не понимаю.

AndrF BelkinЭто нужно делать программно через VBA, там в цикле создаются .doc, затем нужно .pdf, а потом отправить на e-mail

Ищи что либо работающее из командной строки, например, вроде тебе пойдет вот это:

http://www.e-pdfconverter.com/document-converter/index.html
Во-первых, это платный продукт,
во-вторых, для этого есть Acrobat со своим виртуальным принтером,
а в-третьих как мне из VBA задать имя и путь для сохранения выйла в .pdf В это окно можно ввести только с клавы.

Magnus23Пока не нашел :(. На винте нету, надо поднимать старые бэкапы, тому проекту года 3 уж...


Magnus
Буду тебе очень признателен.
Пожалуйсто не забудь.
А то все автоматизирывал, а приходитя через сендр отправлять эти бумаги. Получается почти никакой разници.

Заранее благодарен.

AndrF BelkinЭто нужно делать программно через VBA, там в цикле создаются .doc, затем нужно .pdf, а потом отправить на e-mail

Кстати, я бы постарался изменить в этом месте, а именно - создавал бы письма сразу в HTML-формате (с картиночками и прочим) - у меня сейчас так и делается... И конечному юзеру приятней будет - ибо никаких вложений... Зачем PDF-то?
Это документ за подписью директора, не хочется чтобы в документе фигурировала его подпись как картинка . А так и .doc можно отправить нет проблем.

AndrF BelkinЭто документ за подписью директора, не хочется чтобы в документе фигурировала его подпись как картинка . А так и .doc можно отправить нет проблем.

А с каких пор из PDF-файла стало проблемой вырезать картинку?
Да хоть через тот же скриншот - даже думать не надо...
Это будет как будто оригинал отсканированный, а то явная картинка
Мы эти документы в другие компании отправляем.

AndrF Belkin[quot AndrF][quot Belkin]Это документ за подписью директора, не хочется чтобы в документе фигурировала его подпись как картинка . А так и .doc можно отправить нет проблем.

Да понял я что вы отправляете.

Это будет та же картинка 1:1.
Кроме того, бумажный документ тоже прекрасно сканируется...
А PDF разбирается на части.

И что с того, что у кого-то есть такая подпись:

http://img.galya.ru/galya.ru/Pictures/catalog_dir/2005/04/16/9914.jpg
У нас хранятся оригиналы с подписями.
А мы отправляем отсканированный вариант, а если отправить такой, то не факт что его подписали(хотя тот тоже не факт). Мне дали задание я делаю, а .doc уже хоть сейчас отправляй.

SoftParanoikВ проекте VBA в "References" добавляем ссылку на "Acrobat Distiller"

Dim PDFDist As New ACRODISTXLib.PdfDistiller

Dim TempFile as String : TempFile="c:\temp.prn"
Dim PDFFile as String : PDFFile="c:\temp.pdf"

ActiveDocument.PrintOut OutputFileName:=TempFile, PrintToFile:=True

PDFDist.FileToPDF TempFile, PDFFile, ""

Kill TempFile
Что то не получается пишет что фаил .prn используется другим процессом.

А у тебя все работает? Подскажи что сделать.
Заранее благодарен.

Belkin SoftParanoikВ проекте VBA в "References" добавляем ссылку на "Acrobat Distiller"

Dim PDFDist As New ACRODISTXLib.PdfDistiller

Dim TempFile as String : TempFile="c:\temp.prn"
Dim PDFFile as String : PDFFile="c:\temp.pdf"

ActiveDocument.PrintOut OutputFileName:=TempFile, PrintToFile:=True

PDFDist.FileToPDF TempFile, PDFFile, ""

Kill TempFile
Что то не получается пишет что фаил .prn используется другим процессом.

А у тебя все работает? Подскажи что сделать.
Заранее благодарен.
В догонку скрин шот

SoftParanoikПроблема, думаю в том, что у тебя настроена печать в фоновом режиме.
Попробуй так:

Dim PDFDist As New ACRODISTXLib.PdfDistiller

Dim TempFile as String : TempFile="c:\temp.prn"
Dim PDFFile as String : PDFFile="c:\temp.pdf"

ActivePrinter = "Acrobat Distiller"

ActiveDocument.PrintOut Background:=False,OutputFileName:=TempFile, PrintToFile:=True

PDFDist.FileToPDF TempFile, PDFFile, ""

Kill TempFile
Огрмоное спасибо!!!
Все сделал, теперь отлично.
СПАСИБО!!!