печать web-страниц

[Amed]

http://www.vbnet.ru/faq/showtopic.asp?id=66

[alibek]

Шел однажды Абрам по горной тропе и сорвался в пропасть. Но в последний момент успел уцепиться рукой за корни какого-то кустарника. И вот висит Абрам над пропастью, кричит, зовет на помощь, но никто его не слышит. А руки-то устают.
И вот Абрам взмолился:
-- Боже, я ведь всегда был таким богопослушным евреем, всегда соблюдал все обычаи, неужели ты позволишь, чтобы верный раб твой разбился в скалах, чтобы его дети остались без отца и голодали?
Тут разверзлись небеса, вверху появился свет и сверху донесся голос:
-- Да, Абрам, ты действительно богопослушный еврей. Я решил тебя спасти. Разожми руки, не бойся, ты не упадешь, а пойдешь по воздуху и сможешь подняться на тропу.
Абрам подумал, помолчал...
-- Кто-нибудь еще, помогите!

[Konst_One]

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

Dim c As SHDocVwCtl.OLECMDF

c = WEB.QueryStatusWB(OLECMDID_PRINT)
If c And OLECMDF_ENABLED Then
       WEB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
Else
        MsgBox "Printer not ready!", vbInformation
End If



[Konst_One]

я тебе уже код дал
дождись события NavigateComplete и печатай