Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как распечатать HTML документ из TWebBrowser a???? [D5, Win2k]


Sirus ©   (2002-06-23 19:45:00) 

Привет мастера...
Есть вопрос: Нужно распечатать HTML документ из TWebBrowser"a...
Как это сделать???
Заранее спасибо...

With best regards Sirus


Almaz   (2002-06-24 00:31:00) [1]

Например так:


uses ..., SHDocVw, ActiveX, OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
CmdTarget : IOleCommandTarget;
vaIn, vaOut: OleVariant;
begin
if WebBrowser1.Document <> nil then
try
WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
if CmdTarget <> nil then
try
CmdTarget.Exec(PGuid(nil), OLECMDID_PRINT,
OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
finally
CmdTarget._Release;
end;
except
end;
end;


Удачи.


Наверх

Титульная страница Поиск, карта сайта Написать письмо