drucken aus webbrowser

[ice]

hi leute....

ich hab da mal wieder en kleines problem....

ichhabe eine webbrowserkomponente in meinem projekt eingebunden und will mit folgendem code den webinhalt sofort drucken

<pre>
vIn,vOut: TVariant;
begin
Browser.ControlInterface.ExecWB(Shdocvw_tlb::OLECM DID_PRINT,Shdocvw_tlb::OLECMDEXECOPT_DONTPROMPTUSE R, &vIn, &vOut);
end;
</pre>

<b>PS:
diesen code habe ich aus dem c++ builder</b>

das problem ist, das er mich anmeckert....<b>undefinierter bezeichner "TVariant"</b>.

wie muß ich das ändern, damit das direkte drucken funktioniert?

mfg
ice

[ice]

ok...hat sich geklärt....

ich hab die antwort selbst gefunden....

<PRE>
procedure TForm1.Button2Click(Sender: TObject);
var
vaIn,vaOut: OleVariant;
begin
// Drucken ohne Druckerauswahldialog
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT ,OLECMDEXECOPT_DONTPROMPTUSER,vaIn,vaOut);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
vaIn,vaOut: OleVariant;
begin
// Drucken mit Druckerauswahldialog
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT ,OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
vaIn,vaOut: OleVariant;
begin
// Druckvorschau
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT PREVIEW,OLECMDEXECOPT_DONTPROMPTUSER,vaIn,vaOut);
end;
procedure TForm1.Button5Click(Sender: TObject);
var
vaIn,vaOut: OleVariant;
begin
// Seite einrichten Dialog
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PAGES ETUP,OLECMDEXECOPT_PROMPTUSER,vaIn,vaOut);
end;
</PRE>

ich danke trotzdem

mfg
ic

[shadows]

Hi,

versuche es mit:

<pre>
Browser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER);
</pre&gt