如果你愿意给两百分, 不赚白不赚 procedure TForm1.Button1Click(Sender: TObject); var s: LongInt; begin s := WebBrowser1.QueryStatusWB(OLECMDID_PRINT); if (s and OLECMDF_ENABLED) > 0 then WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam) else ShowMessage('Error!'); end;
procedure TForm1.Button1Click(Sender: TObject);
var
s: LongInt;
begin
s := WebBrowser1.QueryStatusWB(OLECMDID_PRINT);
if (s and OLECMDF_ENABLED) > 0 then
WebBrowser1.ExecWB(OLECMDID_PRINT,
OLECMDEXECOPT_PROMPTUSER,
EmptyParam, EmptyParam)
else
ShowMessage('Error!');
end;