Admin
Fondateur
Nombre de messages : 197
Age : 40
Localisation : Tlemcen ( Algérie )
Date d'inscription : 04/12/2006
 |  Sujet: Comment imprimer le document ?  Jeu 18 Jan - 16:45 | |
| [url=#printdoc]Comment imprimer le document ?[/url] Pour imprimer le document avec Internet Explorer 4 ou supérieur, vous devez utiliser la propriété ControlInterface pour accéder à l'interface du composant WebBrowser (Cette interface permet à un contrôleur Automation d'accéder aux propriétés, méthodes et événements du navigateur Web). Dans cet exemple, l'impression du document complet sera envoyée sans que la boite de dialogue d'impression n'apparaisse. Pour afficher la boite de dialogue il faut remplacer OLECMDEXECOPT_DONTPROMPTUSER par OLECMDEXECOPT_PROMPTUSER - Code:
-
var
vaIn, vaOut: OleVariant;
begin
MyWebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end; Avec Internet Explorer 3, vous devez utiliser la méthode suivante - Code:
-
procedure PrintIE;
var
CmdTarget : IOleCommandTarget;
vaIn, vaOut: OleVariant;
begin
if MyWebBrowser.Document <> nil then
try
MyWebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget);
if CmdTarget <> nil then
try
CmdTarget.Exec( PGuid(nil), OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
finally
CmdTarget.Release;
end;
except
{Rien }
end;
end; [center]Note: Si vous utilisez Delphi 2 ou 3, vous devez remplacer PGuid(nil) par PGuid(nil)^ [/center] | |
|
