Imprimir WebBrowser

Delphi

13/04/2004

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


Marcelo

Marcelo

Curtidas 0

Melhor post

Cebikyn

Cebikyn

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;



GOSTEI 1

Mais Respostas

Marcelo

Marcelo

13/04/2004

Valeu colega! Vou testar!


GOSTEI 0
POSTAR