F�rum Imprimir WebBrowser #225599

13/04/2004

Delphi

Alguem pode me informar como imprimir o conteudo de um WebBrowser?

Marcelo

Curtir t�pico

+ 0

Responder

Post mais votado

13/04/2004

Escolha o c�digo que mais se adapte ao seu programa, em todos eles, �WebBrowser1� deve ser substituido pelo nome de seu TWebBrowser:

[b:0a4ef46c2c]Imprimir sem caixa de di�logo:[/b:0a4ef46c2c]

procedure TForm1.Button2Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(
    OLECMDID_PRINT,
    OLECMDEXECOPT_DONTPROMPTUSER,
    vaIn, vaOut);
end;

[b:0a4ef46c2c]Imprimir com caixa de di�logo:[/b:0a4ef46c2c]

procedure TForm1.Button3Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(
    OLECMDID_PRINT,
    OLECMDEXECOPT_PROMPTUSER,
    vaIn, vaOut);
end;

[b:0a4ef46c2c]Pr� visualiza��o de impress�o:[/b:0a4ef46c2c]

procedure TForm1.Button4Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(
    OLECMDID_PRINTPREVIEW,
    OLECMDEXECOPT_DONTPROMPTUSER,
    vaIn, vaOut);
end;

[b:0a4ef46c2c]Configura��o da impress�o:[/b:0a4ef46c2c]

procedure TForm1.Button5Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(
    OLECMDID_PAGESETUP,
    OLECMDEXECOPT_PROMPTUSER,
    vaIn, vaOut);
end;

Cebikyn

Responder

Gostei + 1

Mais Posts

13/04/2004

Marcelo

Valeu colega! Vou testar!

Responder

Gostei + 0