Помогите с TWebBrowser
Аноним
Цитата:
On 2002-08-31 0707, Anonymous wrote
Как распечатать страничку из TWebBrowser?
Поищи чё-нить на http//www.sources.ru
Набери в рамблере TWebBrowser он выдаст ссылки на документы в которых о нем кое-что написано. (МНОГО ПРИМЕРОВ, Разные реализации).
Вот что у меня: (Извини за неакуратность)
procedure TForm1.ActionPrintExecute(Sender: TObject);var A, B: OleVariant; UserAction: Cardinal;begin if Sender = ActionPrintWithSetup then UserAction := OLECMDEXECOPT_PROMPTUSER else UserAction := OLECMDEXECOPT_DONTPROMPTUSER; try WebBrowser1.ExecWB(OLECMDID_PRINT, UserAction, A, B); except end;end;
Вот что у меня: (Извини за неакуратность)
procedure TForm1.ActionPrintExecute(Sender: TObject);var A, B: OleVariant; UserAction: Cardinal;begin if Sender = ActionPrintWithSetup then UserAction := OLECMDEXECOPT_PROMPTUSER else UserAction := OLECMDEXECOPT_DONTPROMPTUSER; try WebBrowser1.ExecWB(OLECMDID_PRINT, UserAction, A, B); except end;end;