Как распечатать страницу из браузера? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д