Печать внешнего файла

[tae1980]

Как в VBA распечатать внешний файл (pdf, jpg, tif, bmp)?

[EducatedFool]

А вы объясните нам, как сделать это вручную в Windows,
- а мы подскажем, как сделать описанные вами действия программно.

[doober]

Гугл знает,его только спросить надо Печать внешнего файла

[tae1980]

Сообщение от doober

Гугл знает,его только спросить надо Печать внешнего файла

Я не силен в английском, по этому искал в русском инете. Но было интересно просмотреть английские сайты. В результате я пришел к следующему.
1. Для печати картинок лучше использовать строку
Shell "rundll32.exe " & Environ("windir") & "\system32\shimgvw.dll,ImageView_Pr intTo /pt " & Chr(34) & ПутьКфайлу & Chr(34) & " " & Chr(34) & Принтер & Chr(34).
Это единственная команда, которая я нашел, позволяющая напрямую указывать на какой принтер нужно выводить печать.
2. С PDF все сложнее. ВСЕ команды которые я на шел прямо или косвенно ссылаются на Acrobat Reader. То есть, я не смог на прямую из VBA распечатать PDF файл. В следствие чего нет возможности указать принтер для вывода. Для меня такая возможность критична. Альтернативой может быть такой код

strPDF = "C:\Test\Map.pdf"
strReader = "C:\Program Files\Adobe\Acrobat 7.0\Reader\acrord32.exe"
RetVal = Shell(strReader & " /t """ & strPDF & """ """ & Принтер & """", vbMinimizedFocus)

Но он требует прямого указания пути к Acrobat Reader, что крайне, крайне не приятно. А так же я при каждой печати открывает Acrobat Reader - от чего мне хотелось бы избавиться. То есть вопрос печати PDF файлов на принтер остается открытым.

Очень надеюсь, что я что нибудь упустил или не так понял и старшие товарищи меня поправят...

[tae1980]

Тут всплыл еще один вопрос по теме. При печати PDF через Acrobat Reader не сетевой принтер, часть символов идет крякозябами. Пример прикладываю. Если печатать этот же файл с компа на котором установлен принтер - все нормально.

Кто нибудь знает как с этим бороться?

[tae1980]

Разобрался с PDF. Для его без проблемной печати нужно выкачать и установить еще одну программу Ghostscript Я её установил так же в "c:\gs\". Вывести PDF на любой принтер можно так: "Shell strGSview & "gsview32.exe ""-s" & ПринтерИмя & """ -p " & ИмяPDF". Где: strGSview - это путь к программе. В моем случае strGSview = "C:\gs\Ghostgum\gsview\". При этом не отрывается надоедливое окно программы.
Всю папку можно устанавливать путем простого копирования (если не нужны какие либо изыски).

ИМХО получилось простое решение по созданию, редактированию, печати PDF, PS и ещё ряд вкусной (читайте хелп на русском). Которое бесплатно, просто в повторение, доступно на всех ОС и на любом языке программирования.

ЗЫ как ни странно пропал спецэффект с крякозябами. То есть в данном случае это решение даже лучше решения на базе Acrobat Reader.