Помогите с TWebBrowser
Как распечатать страничку из TWebBrowser?
Цитата:
On 2002-08-31 0707, Anonymous wrote
Как распечатать страничку из TWebBrowser?
Поищи чё-нить на http//www.sources.ru
Вот что у меня: (Извини за неакуратность)
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;