Imprimir TWebBrowser

Question

Caros amigos    Eu estou fazendo um navegador de internet , o problema � que tenho de desenvolver al�m do bot�o voltar avancar parar atualiza , � obrigat�rio a coloca��o de um bot�o imprimir . Sei que...

Cebikyn · Answer

Imprimir sem caixa de op��es:[code:1:2437147123]procedure TForm1.Button2Click(Sender: TObject);var  vaIn, vaOut: OleVariant;begin  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT,     OLECMDEXECOPT_DONTPROMPTUSER,    vaIn, vaOut);end;[/code:1:2437147123]Imprimir com a caixa de op��es:[code:1:2437147123]procedure TForm1.Button3Click(Sender: TObject);var  vaIn, vaOut: OleVariant;begin  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,    vaIn, vaOut);end;[/code:1:2437147123]Pr� visualiza��o de impress�o:[code:1:2437147123]procedure TForm1.Button4Click(Sender: TObject);var  vaIn, vaOut: OleVariant;begin  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW,    OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);end;[/code:1:2437147123]Configurar p�gina:[code:1:2437147123]procedure TForm1.Button5Click(Sender: TObject);var  vaIn, vaOut: OleVariant;begin  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER,    vaIn, vaOut);end;[/code:1:2437147123]...

Cebikyn · Answer

Se por acaso o c�digo para imprimir a cima n�o funcionar, existe este tb:

var
  CmdTarget : IOleCommandTarget;
  vaIn, vaOut: OleVariant;
begin
  if WebBrowser1.Document <> nil then
    try
      WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
      if CmdTarget <> nil then
        try
          CmdTarget.Exec( PGuid(nil), OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
        finally
          CmdTarget._Release;
        end;
    except
      // 
    end;
end;

F�rum Imprimir TWebBrowser #212308