Как распечатать страницу из браузера? - VB

Узнай цену своей работы

Формулировка задачи:

Проблема такая: достался по наследству прилично работающий EXE-шник, но нет исходных программ. Нужно восстановить программы (VB6), чтобы можно было вносить необходимые изменения. Есть формы, собирающие кучу информации и записывающие их в HTML файлы. Затем можно посмотреть все это в Explorer и распечатать на бумаге. Почти все удалось сделать, осталась кнопка 'Распечатать'. Нужно запускать на печать без всяких диалогов и обращений один единственный,отформатированный HTML-тегами файл. Подскажите, пожалуйста, кто может, бьюсь над этим несколько дней.

Решение задачи: «Как распечатать страницу из браузера?»

textual
Листинг программы
Private Sub cmdPrint_Click()
        On Error GoTo ErrorHandler
L1:
        If Not Explorer.Visible Then Explorer.Visible = True
    Explorer.Navigate 'D:MyFile.htm'
    Explorer.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
        Exit Sub
ErrorHandler:
    Set Explorer = Nothing
    Set Explorer = New SHDocVw.InternetExplorer
    GoTo L1
End Sub

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы