twebbrowser 中如何打印html文件(100分)

  • 主题发起人 主题发起人 kmgyl
  • 开始时间 开始时间
K

kmgyl

Unregistered / Unconfirmed
GUEST, unregistred user!
twebbrowser 中如何打印html文件
哪里有TwebBrowser的帮助文件
 
我也想知道
 
见http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=301420
 
<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=296263">我以前答的</a>
 
IE 4 中用该方法提示有错.
twebbrower.execwb 没有找到
 
对不起, 重新检查发现用的是Twebbrower_1

新问题:
Twebbrower.execwb(OLECMDID_PRINT,OLECMDEXECOPT_PROMPTUSER)
执行后,出现提示:
试图激活未注册的丢弃目标.

是不是有类没有注册?

Twebbrower.execwb(OLECMDID_SAVEAS,OLECMDEXECOPT_PROMPTUSER)
正常


 
procedure TForm1.Button1Click(Sender: TObject);//浏览
begin
webbrowser1.Navigate('http://www.163.com');
end;

procedure TForm1.Button2Click(Sender: TObject)
//打印
begin
webbrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);
end;
 
heng :
难道打印对话框出来后
按放弃按钮难道没有提示?

提示:试图激活未注册的丢弃目标.
 
附加功能 将问题提前
 
在“end.”之前加上下面几句。
initialization
OleInitialize(nil);

finalization
OleUninitialize;
 
多人接受答案了。
 
后退
顶部