Impression automatique avec un TWebBrowserRésolu

Question

Bonjour, 

Je tourne en rond depuis quelque temps sur un petit probl&#232;me...

Dans mon application j'ai un WebBrowser dont je me sert pour afficher une image. Une fois celle-ci affich&#233;e je l'imprime.

Je fait ceci :
  WebBrowser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT );

Ce qui a pour effet de m'afficher la bo&#238;te dialogue de l'imprimante et me permet de lancer mon impression.

Mon probl&#232;me est que je voudrais pouvoir choisir mon imprimante (car ce n'est pas celle par d&#233;faut), mettre l'orientation de la page et choisir les marge par le code. J'aimerai savoir comment modifier les param&#232;tres d'impression ainsi que l'imprimante par code.

Merci d'avance
Nelson

P.S : j'ai essay&#233; les composants TPrinters et &#231;a n'a rien donn&#233;.

jmp77 · Accepted Answer

Alors voici deux fonctions que j'utilise. Une pour r&#233;cup&#233;rer
l'imprimante par defaut et l'autre pour changer l'imprimante par
d&#233;faut. Je pense qu'en regardant de plus pres tu pourras changer
egalement les marges et orientation.



{------------------------------------------------------------------------------}


{                  Permet de mettre une imprimante par defaut.                 }


{------------------------------------------------------------------------------}


procedure SetDefaultPrinter(PrinterName : String);



var


szPrinterName, szIniInfo, szSection : PChar;


Arr_Tmp : Array[0..64] of Char;



begin



   Try


   {R&#233;servation de l'espace m&#233;moire}


   GetMem(szPrinterName,SizeOf(Char) * 256);


   GetMem(szIniInfo,SizeOf(Char) * 256);


   GetMem(szSection,10) ;


   {R&#233;cup&#233;ration des informations sur l'imprimante}


   StrPCopy(szPrinterName,PrinterName);


   GetProfileString('DEVICES',szPrinterName,nil,szIniInfo,254) ;



      {Si on trouve les infos de l imprimante}


      If szIniInfo^ <> #0 then


      begin


      StrCat(szPrinterName,',') ;


      StrCat(szPrinterName,szIniInfo) ;


      {On Change l imprimante}


      WriteProfileString('Windows','DEVICE',szPrinterName) ;


      {On informe les applications du changement}


      StrCopy(Arr_Tmp, 'windows');


      SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@Arr_Tmp));


      // StrCopy(szSection,'Windows') ;


      // Ne fonctionne pas avec Win98/ Me : PostMessage(HWND_BROADCAST,WM_WININICHANGE,0,LongInt(szSection)) ;


      end;



   {On lib&#232;re l'espace memoire}


   FreeMem(szPrinterName,SizeOf(Char) * 256) ;


   FreeMem(szIniInfo,SizeOf(Char) * 256) ;


   FreeMem(szSection,10) ;


   except



      {Pas d'espace m&#233;moire}


      on E: EOutOfMemory do ShowMessage(E.Message) ;


      {Erreur de pointeur}


      on E: EInvalidPointer do ShowMessage(E.Message) ;


   end;


end;



{------------------------------------------------------------------------------}


{                 Permet de r&#233;cup&#233;rer l'imprimante par defaut.                 }


{------------------------------------------------------------------------------}


function GetDefaultPrinter : String;



var


szCurrentPrinter : PChar;



begin



   Try


   {R&#233;servation de l'espace m&#233;moire}


   GetMem(szCurrentPrinter,SizeOf(Char) * 256);


   {Information sur l'imprimante par d&#233;faut}


   GetProfileString('Windows', 'DEVICE', '', szCurrentPrinter, 254);


   {On renvoie le nom de l'imprimante par d&#233;faut}


   Result := Copy(szCurrentPrinter, 1, Pos(',', szCurrentPrinter)-1);


   {On vide la m&#233;moire}


   FreeMem(szCurrentPrinter, SizeOf(Char) * 256) ;


   except


   Result := '';


   end;


end;



Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

jmp77 · Answer

Je connais pas tres bien le composant WebBrowser pourrais tu me dire comment tu fais pour imprimer avec et je verrais si ma soluce pourra te servir.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

neo557 · Answer

Et bien en utilisant la commande :

WebBrowser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER );

Tu imprime directement le contenu de ton webBrowser sans m&#234;me demander &#224; l'utilisateur. En mettant OLECMDEXECOPT_PROMPTUSER comme 2&#232;me param&#232;tre tu vas afficher la bo&#238;te de dialogue d'impression.

Le seul probl&#232;me de l'impression sans demande &#224; l'utilisateur c'est qu'il prend tout par d&#233;faut (imprimante, marges, orientation).

Ce que j'aimerais c'est utiliser cette commande, mais qu'avant je puisse modifier les param&#232;tres d'impression.

Voil&#224;.

Nelson

neo557 · Answer

Merci pour ton code.

avec ceci je peux effectivement changer d'imprimante par d&#233;faut quand bon me semble. 

Je n'ai pas encore v&#233;rifier comment je peux orienter le papier et &#233;crire les marges en code mais j'ai remarqu&#233; que avec la fonction que tu m'a donn&#233; il prend non seulement l'imprimante choisie comme imprimante par d&#233;faut mais il reprend &#233;galement tous les param&#232;tres de l'imprimante...

Je veux dire que je n'ai qu'a effectuer mes r&#233;glages dans les options de l'imprimante sous windows et ils seront pris en compte sous delphi.

C'est nickel merci beuacoup !!!

Nelson

Impression automatique avec un TWebBrowser

4 réponses

Votre réponse

Discussions similaires