如何用 IE 控件打印？—BY CJ(50分)

Import 了 IE 的 ActiveX 控件,如何让其打印?我用以下方法:

procedure TForm1.PrintDoc;
var
v1,v2,v3,v4:OleVariant;
begin
try
v1 := OLECMDID_PRINT;
WebBrowser1.ExecWB(v1,v2,v3,v4);//乱七八糟的什么东西
except
end;
end;

整个程序如下，恶简单：
const
MAIN_LOCATION = 'C:/HYHTML/INDEX.HTM';

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.GotoPage(ReqUrl: string);
var
v1, v2, v3, v4: OleVariant;
begin
try
WebBrowser1.Stop;
WebBrowser1.Navigate (ReqUrl, v1, v2, v3, v4);
except

end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Top := 0;
Left := 0;
Width := Screen.Width;
Height := Screen.Height;

WebBrowser1.Stop;

if ParamCount >= 1 then
GotoPage(ParamStr(1))
else
GotoPage(MAIN_LOCATION);
end;

procedure TForm1.ToolbarButton972Click(Sender: TObject);
begin
Showmessage('信息查询系统 BY CJ')
//药
end;

procedure TForm1.TransparentButton1MouseEnter(Sender: TObject);
begin
with (Sender as TTransparentButton).Font do
begin
Style := [fsItalic,fsBold];
Color := clRed;
end;
end;

procedure TForm1.TransparentButton1MouseExit(Sender: TObject);
begin
with (Sender as TTransparentButton).Font do
begin
Style := [];
Color := clBlue;
end;
end;

procedure TForm1.TransparentButton5Click(Sender: TObject);
begin
try
WebBrowser1.GoBack;
except
end;
end;

procedure TForm1.TransparentButton7Click(Sender: TObject);
begin
try
WebBrowser1.GoForward;
except
end;
end;

procedure TForm1.TransparentButton8Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.TransparentButton10Click(Sender: TObject);
begin
try
WebBrowser1.Refresh;
except
end;
end;

procedure TForm1.TransparentButton1Click(Sender: TObject);
var
s:string;
begin
s := InputBox('输入文件名','输入文件名','');
if s <> '' then
GotoPage (s);
end;

procedure TForm1.PrintDoc;
var
v1,v2,v3,v4:OleVariant;
begin
try
v1 := OLECMDID_PRINT;
WebBrowser1.ExecWB(v1,v2,v3,v4);
except

end;
end;

procedure TForm1.TransparentButton2Click(Sender: TObject);
begin
PrintDoc;
end;

end.

啊？没人回答？？？
哭(

啊？问题怎么删不了也结束不了？分数浪费大了！
又哭

大家怎么了？就没人会吗？
CJ 现在穷的很，如果要加人，我们年底结帐如何？

没有人回答是因为你问题主题后面有“—BY CJ ”下次你不要写BY CJ试试。

（小声的说）CJ老大 在DELPHI中如何插入WINDOWS的HTML浏览器。

哈哈哈哈....
cj,别急

shopman,用import ActiveX.

刚刚给你40￥，想讨回点；
Import Webbrowser activex
运行时右击就可以了

shopman:灌水允许，不过不要贴第一张帖子！不然人家无法删除问题！（这题为什么没人贴过也删不了？）

ZX：谢谢

chxn:我要用程序控制！而且我知道如何调出打印对话合，但我要直接打印！无任何附加物

怎么啦？没人回答？如果没有，斑竹把分数还我吧！

问题没人关心：（见者有份