Печать HTML страницы

← →
RazorbladE © (2002-12-03 13:03) [0]

Люди! Необходимо из своей программы распечатать HTML файл.
Подскажите где можно взять компоненту (типа THtmlLite), но с
поддержкой печати? Или какой нибудь другой способ.

Заренее спасибо.

← →
Кулюкин Олег © (2002-12-03 13:23) [1]

Можно загрузить страницу в TWebBrowser (входит в поставку дельфей) и респечатать.
Вот функция, которой я пользуюсь для печати.
PrintWithSetup - выводить ли окно "Свойства печати"

procedure mrWebBrowserPrint(AWB : TWebBrowser; PrintWithSetup : boolean);
var
A, B: OleVariant;
UserAction: Cardinal;
begin
if PrintWithSetup then
UserAction := OLECMDEXECOPT_PROMPTUSER
else
UserAction := OLECMDEXECOPT_DONTPROMPTUSER;
try
AWB.ExecWB(OLECMDID_PRINT, UserAction, A, B);
except
end;
end;

← →
Дмитрий К.К. © (2002-12-03 13:35) [2]

А вот здесь грабли лежат.

← →
Кулюкин Олег © (2002-12-03 13:38) [3]

2 Дмитрий К.К. © (03.12.02 13:35)
???

← →
Song © (2002-12-03 14:13) [4]

Да просто ShellExecute() и ничего больше не надо.

← →
Дмитрий К.К. © (2002-12-03 14:17) [5]

> Кулюкин Олег ©

Сделай сам такой пример, вызови процедуры печати, а потом нажми "Отмена". Хочешь угадаю ошибку? ;)

2Ihor Osov"yak

Мы же с Вами его тогда разбирали.

2 Дмитрий К.К. © (03.12.02 14:17)
> Сделай сам такой пример, вызови процедуры печати, а потом нажми "Отмена". Хочешь угадаю ошибку? ;)
Знаю я эту ошибку.
Поэтому я и поставил печать в try...except :)))

Печать HTML страницы Найти похожие ветки