Вопрос : VB6: Архив HTML печатание на одиночной странице

Наше применение VB6 создает архив HTML для печатание, и для посылать по электронной почте. Все работает совершенно. За исключением, конечно, распечатка идет к второй странице. Текстом будет только немного линий и малого графиком… Это будет линия, котор мы используем к ручке print.

ShellExecute, «ПЕЧАТЬ», app. Курс &» \ rc.htm ", "", "", SW_HIDE

Is там параметр который можно установить для того чтобы принудить страницу для того чтобы представить к одиночному листу бумаги? class=

Ответ : VB6: Архив HTML печатание на одиночной странице

Используйте управление webbrowser вместо
WB.Visible=False
WB.Navigate app. Курс & «\ rc.htm»
Сделайте пока WB.ReadyState<4>   DoEvents
Петля
'Или даже лучше - без архива:
'WB.Navigate «about.blank»
«Сделайте whilw WB.ReadyState<4>  » DoEvents
'Петля
'WB.Document.body.innerHtml=YourFormattedHtmlString
WB.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 1)
'OLECMDID_PRINT = 6
'OLECMDEXECOPT_DONTPROMPTUSER = 2
'OLECMDEXECOPT_PROMPTUSER = 1