Пробовал печатать в файл
- Код: Выделить всё
If(WordApp.ActivePrinter <> "CutePDF Writer on CPW2:") Then WordApp.ActivePrinter = "CutePDF Writer"
WordApp.ActiveDocument.PrintOut False, False, 0, Server.MapPath(FileName & ".pdf")
Но при печати в файл или вообще ничего не происходит, или сохраняет в файл в формате PRN. А если печатать просто
- Код: Выделить всё
WordApp.ActiveDocument.PrintOut
то выскакивает окно для ввода имени файла, что в серверном варианте недопустимо. Эта тульза пользует другую GhostScript которая собственно и проделывает всю работу, а CutePDF является только обёрткой для неё. Нашёл, поставил, с горем пополам нашёл примеры использования, завелось. Только оказалось что конвертит данная тульза не напрямую DOC, а через PostScript. Т.е. надо установить PostScript принтер и сначала печатать в него, а потом уже при помощи батника конвертить в PDF. В общем заработало, но как-то всё слишком запутано. Нет ли способа попроще и желательно дешёвого?
Кстати, в качестве PostScript принтера установил "HP LaserJet 4V/4MV PostScript". Так он, гад, выводит в чёрно/белом виде, т.е., я так понимаю, у него вообще нет цветной печати. Подскажите, пожалуйста, цветной PostScript принтер.
