Печатать HTML! Горит!

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
alexx
Сообщения: 116
Зарегистрирован: 02 июл 2004, 22:29
Откуда: Hamburg

Мне надо печатать HTML страницу с локальной HDD. Делаю это WordServerom, но сие есть тормозно, надо обрабатывать 2-3 страницы в секунду . Использовать чужие ActiveX нельзя. Подскажите где копать. WIN API?
-------------
Лень - двигатель прогресса!
Аватара пользователя
AiK
Сообщения: 2287
Зарегистрирован: 13 фев 2004, 18:14
Откуда: СПб
Контактная информация:

MSHTML
Даже самый дурацкий замысел можно воплотить мастерски
alexx
Сообщения: 116
Зарегистрирован: 02 июл 2004, 22:29
Откуда: Hamburg

:D Cпaсибо!
-------------
Лень - двигатель прогресса!
alexx
Сообщения: 116
Зарегистрирован: 02 июл 2004, 22:29
Откуда: Hamburg

:( не помогло... выскакивает диалог бокс. можно печатать автоматически c MSHTML?
-------------
Лень - двигатель прогресса!
Аватара пользователя
AiK
Сообщения: 2287
Зарегистрирован: 13 фев 2004, 18:14
Откуда: СПб
Контактная информация:

IDM_PRINT + OLECMDEXECOPT_DONTPROMPTUSER
Даже самый дурацкий замысел можно воплотить мастерски
alexx
Сообщения: 116
Зарегистрирован: 02 июл 2004, 22:29
Откуда: Hamburg

жаль чтo из VBS никак...
Cпaсибо.
-------------
Лень - двигатель прогресса!
Аватара пользователя
AiK
Сообщения: 2287
Зарегистрирован: 13 фев 2004, 18:14
Откуда: СПб
Контактная информация:

Что значит никак? Это что из VBS, что из JScript работает. Должно. Чуть позже проверю самолично :)
Даже самый дурацкий замысел можно воплотить мастерски
Аватара пользователя
AiK
Сообщения: 2287
Зарегистрирован: 13 фев 2004, 18:14
Откуда: СПб
Контактная информация:

В общем, на VBS легко, а на JS третий параметр похоже игнорируется :(

Код: Выделить всё

<html>
<body>
Bla bla
<OBJECT ID="WebBrowser" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>
<script language="VBScript" type="text/vbscript">
Sub printmenow()
        IDM_PRINT  = 6
        OLECMDEXECOPT_DONTPROMPTUSER = 2 
        PRINT_DONTBOTHERUSER         = 1
        WebBrowser.ExecWB IDM_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,PRINT_DONTBOTHERUSER
End Sub
</script>
<input type="button" value="Print me" onClick="printmenow()">
</body>
</html>
Даже самый дурацкий замысел можно воплотить мастерски
alexx
Сообщения: 116
Зарегистрирован: 02 июл 2004, 22:29
Откуда: Hamburg

бежит, спасибо. Но мне похоже придётся дальше извращаться. Это печатает только в стандартный принтер. Если открыт PDF File в броузере, то появляется его принт диалог. Сейчас пока проект в VBA, попробовал посылать PostMessage на окно принт диалога, работает, попробую так-же выбирать нужный мне принтер. Для VBS придётся что либо другое придумывать, но это уже пол беды.
Спасибо.
-------------
Лень - двигатель прогресса!
Ответить